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FLASH! 
Gets the Gold 
at the Computer Olympics 



The Styles Electric Works 1541 
FLASH! dashed off with the gold at 
the Computer Olympics here. 

The 7547 FLASH! loaded and saved 
programs and files three times faster 
than an unenh anced Commodore 

« f 94 tor than 1541 disk drive could. 
. . . Idawi ll Idl l Fas ter than any other 

any Other disk disk drive with com- 
Hriuo " patible disk format. 

qnve... Three times faster! 

The device delighted the home 
crowd, which watched the 7547 
FLASH! set a meet record, and leave 
its competition in the dust. 

Once installed, the 7547 FLASH! is 
transparent. Computer operations 
all remain unaffected as it speeds up 
every disk-related function. The 
FLASH! is a permanent installation 
with both a software (ROM) and a 
hardware component. Through key- 
board commands or a hardware 
switch, you can even return to the 
old, slow loading method — if you 
really want to. 

And there is nothing new to learn 
for the FLASH! No special tricks or 



techniques. Once it's in, just watch 
it go. 

But if you're really serious about 
programming, the 7547 FLASH! is a 
gold mine. The manual will show you 
how to write software allowing data 
transfer to and from the 1541 disk 
drive at speeds up to 10 times the 
normal. 

For programs that usually load 
with a " **',8,1 " command, just hit 
Shift/Run-Stop. A spreadsheet pro- 
gram like BUSICALC 3 then loads 
in about 25 seconds. 

The 7547 FLASH! even adds 21 ex- 
tra commands for the Commodore 
64 user. Some of these include edit- 
ing, programming and loading com- 
mands, as well as "DOS Wedge" 
commands. You can ignore all these 
commands, though, and just enjoy 
the rapid disk operations. 

H wowed the crowd at the Com- 
puter Olympics. Once you see its 
sheer speed, you'll know why. Call 
its coach, Styles Electric Works, to 
place your order or to get more info. 



1541 FLASH!, an add-on assembly, for the Commodore 64/1541 costs only $79.95. 



n) Skyles Electric Works 

LTf 231 E South Whisman Road 
Mountain View, CA 94041 
(415)965-1735 




Available from your local 
Commodore 64 dealer or 
call 1-800-227-9998. 

1541 FLASH! is a trademark of Skyles Electric Works. 
Commodore 64 is a trademark of Commodore. 



Want to become an Apple expert? 




Join the club. 



A.P.P.L.E. 

Apple PugetSound Program Library Exchange 

The Apple PugetSound Program Library Exchange is the world's first, oldest, and largest Apple 
computer user group. Our membership is comprised of Apple enthusiasts throughout the world, and 
we provide support for all levels of technical ability, from beginner to seasoned program author. 

A membership in A.P.P.L.E. will bring the Apple owner 7 day per week hotline privileges for techni- 
cal assistance when you need it, plus the international magazine Call — A.P.P.L.E., and incredible 
discounts on our fully supported, low priced, world famous software products, and hardware. 

A.P.P.L.E. is a member owned, non-profit service organization. Write today for a free copy of our 
magazine and club information, or join by filling out the enrollment coupon 



VALUESOFT 

A product whose time has come. 
Fully supported, guaranteed, high quality software at low prices. 

VALUESOFT INCLUDES: 2 word processing programs 
* '"i^-^^-^^ 1 v exciting games 

Uncommon at usefu) utilities 



"I 



Jpl JL.D\j per disk, 
program contains its own 
document on disk. 



high quality graphics 
finance and education 



The quality VALUESOFT line of software is available through the Apple| 
PugetSound Program Library Exchange. 



NEW //c OWNER? 

programs for the He now in stock 

Craphics Utilities 

Word Processing Database 



Join Now and Receive 10 FREE Is- 1 /*") 



1% A.P.P.L.E. 

-£ pioneering Apple computing 




since 1978. 

Mail to 

APPLE 

2 1246- 681 h Ave S 

Kent. WA 98032 

(206) 872-2245 

or call our toll-free number 

1 800-426-3667 

(24 Hrs. Orders Only) 

C MEMBERSHIPS26one-tlme 
application fee + S25 first year 
du.es.S51 

Z FREE INFO + Call-A.P.P L E 
Please send free information 



Name 

Address 

City 

Stale 

Phone »_ 



-Zip. 



M/C VISA ' 
Exp. Date 



Additional foreign postage required 
for membership outside the US 



J 



i Lisa aid Mai 



ade'Tk'rr-s of Apple Cdmr,ult' I 




Featured This Month 



This month we enter into the world of FORTH, in addition 
to a varied selection of other exciting subjects, programs 
and projects. 



Time-Series Forecasting — enter into the world of 
Nostradamus with the sagacity of Einstein. This program 
uses various forecasting techniques to predict the future, 
from interest rates to the Dow Jones. Includes versions for 
the Apple, Atari, Commodore 64 and CoCo. 

Introduction to FORTH — a look at the world of 
FORTH. Who would be interested in FORTH, why, what 
features does it offer, its uses and implementations. 

Textfile Write Edit Read Program — for all of you Apple 
users who have cursed when they wanted to read a text file 
and only got an error message. This program is an 
invaluable help in writing, reading, and editing text files. 

Multi-Tasking for FORTH — this program allows 
seperate tasks to run in the 'background' while still having 
the FORTH interpreter available in the 'foreground.' A 
concept and program with powerful implications. 

Transforming dBase II Files — find out how to alter 
your dBase II files so that you can use them with 
Wordstar/ Mailmerge to produce personalized letter forms. 



Stepper — who has step-traced his way through an 
assembler program only to have to suffer through jumps to 
monitor routines? This program saves from this time 
consuming annoyance, making debugging a little more 
enjoyable. 

Structure Tree Utility — nothing is worse than 
forgetting the calling structure of a word in FORTH. With 
this program you can easily recall which came first — the 
chicken or the egg. 

68000 Exception Processing — how to take advantage 
of the 68000' s capabilities, software exception processing 
in general and hardware exception processing for the 
SAGE. 

Graphic Print for C64 Part 3 — the final installment of 
this excellent series provides the programs and techniques 
required to generate full color pictures on your standard 
printer! 

Approximating the Square Root of the Sum of 
Squares — a fast and time saving method for dealing 
with that candidate for 'the most often used 
calculation' — the square root. 
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MASTER DIAGNOSTICS 



There is only one thing ^t < 

more important than your flKippKZ 



aintaining it 



HOW MANY DISKETTES HAVE YOU INITIALIZED WITH YOUR DISK DRIVES RUNNING TOO FAST OH 
TOO SLOW THINK ABOUT WHAT THAT COULD MEAN 

DIO YOU KNOW THAT THE DRIVE SPEED OF YOUR APPLE 5HOUL0 BE AS CLOSE TO 
300 RPM AS POSSIBLE? LIKE A RECORD OH TAPE SYSTEM VARIES WITH MOTOR SPEED 
SO DOES A DISKETTE 

WHEN WAS THE LAST TIME YOU CLEANED THE READ/WHITE HEAOS OF YOUR DRIVES? 
THEY SHOULD HAVE SEEN CLEANED LAST MONTH AND WITH OUR PROGRAMMED 
UTILITIES YOU COULD DO SO AT THE PUSH OF A BUTTON 

MOW ABOUT THE WRITE PROTECT SWITCH? IS IT WORKING PROPERLY SO YOU WON'T 

DESTROY YOUR PROGRAM OISKETTE OH PROTECTED DATA? 
THERE'S LOTS MORE ANO IT WILL ONLY TAKE IS MINUTES A MONTH TO KEEP YOUR HIGH 
TECHNOLOGY EOUIPMENT RUNNING AT HIGH PERFORMANCE. PRCVEnT PROBLEMS OR DIAGNOSE 
PHOBLEMS AND SAVE YOURSELF ONE OF THOSE DAYS . 

WITH MASTER DIAGNOSTICS ANYONE CAN DO IT. 
THE PROGRAM THAT PAYS FOR ITSELF 

WHEN ORDERING SPECIFY 

version II & II plus or version lie 

□ master diagnostics $55.00 

□ master diagnostics + plus $75.00 



DIAL 1-BOO-B35-2246 



MOTHERBOARD ROM IEST 

APPLESOFT CAW fFSr 
INTEGER CARD TEST 
MOTHERBOARD RAM TEST 
I6K SAM CARD TEST' 
AUX RAM TEST* 
80 COLUMN CARD TEST" 
PARALLEL CAR0 TEST 
SPEAKEfl FUNCTION TEST 
SQUARE WAVf MOOULAflON 
ON BOARD HEl P 



THI TESTS INCLUDE 

DISK DRIVE SPEED CALiWATlDN 
DRIVE HEAD FIEAD/WRI TE TEST 
WRITE PflCTECT SWITCH TEST 
DRIVE HEAD CLEANING ROUTINES 
DISK WIVE MAINTENANCE 
0C HAVES M1CR0M00EM II TEST 
PA0OLE i SPEAKER TEST 
PADDLE S BUTTON TEST 
PAOOU DRIFT 'EST 
INTERNAL MAINTENANCE 
FORTY PACE MANUAL 



MONITOR SKEWING TESTS 

MONITOR 4 MO0ULATOR 

CALIBRATION 

MONITOR TEXT PAGE TEST 

MONITOR TEST PATTERN 

MONITOR A TV YOKE ALIGNMENT 

LO RES COLOR TESTS 

HI RES COLOR TESTS 

LISSAJOUS PATTERNS 

UNO HI RES COLOR GENERATOR 

GENERAL MAINTENANCE 

■APPLE lit 



Hut** PlaTiaalloa + Mua pro^Ms avwrythinB naaxWd to maintain y«j( compute' 
Tha anciftTpackaga •• houwri in our own moldwi om u protect againa auoc ttonricrty, 
•-ray and oftwr contaminanu. 

'-^T^DtAfiWSiTCS OrSKETTE ■ CRT SCREEN CLEANER 

• FWTTYWGE PROCEDURE MANUAL • COMPUTER/DRIVE HOUSING CLEANER 

• HEAD CLEANING KIT - «■'««>■ * ^"«rw ™«" ™"" 1 « 



• REUSEABLE CHAMOIS TIPPED VWNOS 
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25 Prospect Street, Leominster MA 01453 
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Buy this 68000 computer, 
we'll give you a 65C02 . . . free. 




The MTU- 140 has always 
been a good deal, because it's 
such a versatile computer. 
Now when you purchase an 
MTU- 140 ($3995) you get the 
new 65C02 processor chip free. 
And, bv adding the DATA- 
MOVER board ($1080) you'll 
have a 68000 computer to boot . 
...plus a total of 335KB RAM 
to share between them. The 
65C02 is just like the 6502 plus 
8 new instructions and 2 new 
addressing modes using the 
latest high speed CMOS 
technology. With the CODOS/ 
DMXMON operating system, 
you choose which processor is 
in control ... or have both 
running simultaneously, each 
performing flawlessly ... the 
way MTU computers have 
always worked. 

Our customers are sold on 
the MTU- 140. They know we 
designed it for thinking people 
. . .to extend their abilities. 
They have found it easy to 
customize for their own needs 
. . .providing solutions they had 
not thought possible. We think 
you will agree ... the MTU- 140 
is tailor-made for people who 
need their own professional 
computer. 

The MTU-140 is fast. At the 
touch of a button, you can load 



32KB in just 2.6 seconds . . . and 
another 20KB in just 1 second! 
Plus, both CPU's can perform 
other tasks during disk opera- 
tions . . . even service 
interrupts. Few computers 
offer this freedom . . . none with 
both 65C02 and 68000 
processors! Equipped with the 
DATAMOVER, the MTU-140 
provides: 

• 8MHz 68000 plus 256KB RAM 
with 2 DMA ports 

• 1MHz 65C02 plus 80KB RAM 
with multiple DMA ports 

• Dual 1MB 8" Floppies lor 
ultra-reliable operation 

• DMA disk operations into 
memory, no CPU interference 

• DMA hi-res Graphics/Text 
display, no CPU interference 

• 96 key detached keyboard with 
5 separate cursor keys 

• 8-bit D/A speech and music 
port 

• Fiber optic light pen 

• 2 Parallel, 1 serial port 

• Internal expansion card slots 

• CODOS/DMXMON Operating 
system using device inde- 
pendent channels 

• Full screen, bidirectional 
scroll editor, handles 1MB 
files 

• MTU-BASIC with graphic & 
disk extensions 

• Communications with at- 
tended/unattended use- 
source available 

• Graphic editor, slideshow 
presentation 

• 4-part harmony instrument 
synthesizer music 



• Over 50 machine language 
utilities 

Choose from our extensive 
selection of software ... for the 
65C02: MTU-BASIC (std) , 
MTU-C ($200), MTU-FORTH 
($79) , 6502/65C02/6511 macro 
assembler ($150) , ... for the 
68000: MTU-BASIC 1.5 ($50), 
Motorola compatable, macro 
cross-assembler ($200) , 
FORTH68K-83 (with source 
$250) , FORTH68K-83 META 
COMPILER ($250) , . . . 68000 
MAGIC/L ($495) , Digital 
Research CP/M68K with C 
language ($call) . For word 
processing, WORDPIC ($420) 
mixes graphics with text. And 
you can run any CP/M 2.2 
program with the PROGRAM- 
MOVER Board (MTU-CP/M, 
Z-80A, 64KB RAM-$650) . 

For laboratory use, the 
MULTI-0 System ($1500) 
offers IEEE-488 bus, clock 
calendar, 2 parallel & 2 serial 
ports, 12 bit D/A & A/D (8 
channels) with up to 16,000 
samples/second, 5,000/second 
sustained to disk from MTU- 
BASIC! It is fully enclosed... 
including connectors, power 
supply and all driver software 
for interfacing all devices to 
CODOS and all languages. And 
for signal analysis work, our 
DigiSound-16 offers 16-bit 
linear, 100,000 samples/second, 
variable internal or external 
sample clock, 64KB DMA 
RAM buffer, and parallel port 
interface to work with any 
computer ($2995) . 

Interested? Call or write 
MTU today for details. We just 
made a good deal even 
better... with a free 65C02. 
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The basic Why's and 
Wherefore's about the 
FORTH language. 



A Technique and Program 
for Running Multiple Tasks 
Under FORTH. 



A FORTH Utility that Prints 
the Structure of a FORTH 
Word. 



Now reading, writing, and 
editing textfiles is easy. 



Add Full Color to Your 
Graphic Printouts -Without 
a Color Printer. 



A Very Fast Method of 
Calculating this Useful 
Function. 



Design a major hardware 
interface - a receiver 
board for the 32K CoCo. 
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Time-Series 
Forecasting 

Brian Flynn 



A Program to Predict the 
Future - That Runs on the 
Apple, Atari, C64 or CoCo. 
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13 Wizard 
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A game utilizing the 
C64's capabilities to 
the maximum — 
that even lets the 
player create his 
own material. 



13 Person-to-Person 



13 Mail Now! 



A feature packed 
communication 
package for the 
Apple, that includes 
a mailing list 
capability. 



A user-friendly 
mailing list program 
for the C64. 



14 Stacker! 



14 MMP-1000C 
Modem 



For the serious 
stock market 
investor, a program 
for predicting 
performance that 
can interact with a 
time-shared data 
base. 



A full-feature 
communications 
package for any 
Atari, including all 
required hardware 
and software. 
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From the editors of 
A.N.A.L.O.G. Computing 



COMP END IUM 

The best ATARI H Home Computer Programs from the first ten issues of A.N.A.L.O.G. Computing Magazint 
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The ANALOG Compendium is available at selected book and computer stores, or you can order it direct. Send 
a check or money order for $14.95 - $2 shipping and handling to: ANALOG Compendium, P. O. Box 615, Holmes, 
PA 19043 

Or you can order by phone with MasterCard or VISA. Call toll free: 1-800-345-8112 (in PA. call 
1-800-662-2444). For orders outside the U.S., add an additional $5 air mail, $2 surface. 
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by Mike Dougherty 
Littleton, Colorado 



Languages like FORTH represent an important turning 
point for computer users. Until now, computer usage was 
managed as a "closed shop." Users desiring computer aid 
were faced with either working with a software expert who 
might not understand their problems, or becoming their 
own software expert at the expense of effort applied to the 
original problem. In either case, the actual solution to the 
user problem was hindered. 

In the last decade, the closed shop cycle was being 
discarded by several new software environments. Working 
in a scientific field which changed far faster than 
conventional software support, Charles Moore developed 
the language and operating system FORTH. In a sense, this 
language placed software development in the hands of the 
user. Users were able to quickly develop and modify 
software without the software middle man. Parallel to 
FORTH, the software engineer was also finding similar 
help in the environment of UNIX and C. The UNIX/C 
combination allowed the nebulous field of software 
support to be directly used by the software engineer. 
UNIX/C allowed each software engineer to build the tools 
needed to analyze, design, write, test and document 
software effectively. In education, Seymor Papert was 
developing an environment called LOGO to teach 
concepts in mathematics and programming. Papert's 
methods were based upon the students writing their own 
software rather than being passive subjects for CAI drill 
and practice. 

From the viewpoint of the user, these languages 
represent the true second generation of 
software — languages which allow the user to directly 
apply a computer to user problems. These second 
generation languages may be characterized by the 
"toolbox" approach to problem solving. Each of the new 
computer environments allows the user to construct 
individual tools [functions, modules, etc.) which may be 
combined to solve problems. Instead of relying on an 
intermediate software engineer to design and build a single 
program, the second generation languages allow the user 
to build upon past software to solve new problems. 

The toolbox approach becomes a software metaphor for 
the normal human process of learning. Learning typically 
consists of building upon previous knowledge. For 
example, speech must be learned in steps, each step 
building upon the last. A small child will first learn simple 
nouns and verbs. These words will be combined into short 
sentences to express desires. Adjectives, adverbs and 
prepositional phrases are later added to express more 
complex desires or ideas. Thus, learning to speak is a 
process of building new speech tools upon those 
previously learned. This process of synthesis is a natural 
and well practiced process for most people. The toolbox 
approach utilizes this concept for software development. 
(It should be pointed out that this "bottom up" 
methodology is not perfect. Just as many children who can 
talk must still be taught "proper" English in school, the 
building blocks must be rearranged or modified when the 
goal at the top is missed.) 



Notice that the toolbox approach complements the 
normally advocated "top down" methodology. This is not 
bad. Rather, it is a reflection of two different problem 
environments. Top down programming was developed to 
aid software engineers dealing with complex programming 
tasks. Complex software is not limited to large 
government projects — even the Apple Lisa's integrated 
software required a 200 man-year effort! These systems 
require a different methodology than used in a laboratory 
or learning environment. 

Given a set of requirements, a complex project may be 
successfully decomposed, layer by layer, into small, easily 
programmed and tested units. This decomposition will 
detail the interfaces between software functions and allow 
different portions of the software to be developed by 
different programmers or teams of programmers. 

Although validated by several pilot projects and used in 
many actual projects, this top down methodology (called 
structured analysis and structured programming by 
Yourdon) requires two strong foundations. First, the 
software requirements must behave as a "damped 
oscillator." Although many requirements change 
throughout a project, these changes must converge to zero. 
That is, for a final product to be generated, the final 
requirements must be set prior to delivery. (In the real 
world, this is not always the case!) Top down methods are 
not very effective when requirements are vague. 

Secondly, the right personnel must be found to perform 
the software decomposition. Proper decomposition 
requires a well structured, highly analytical thought 
process. Unfortunately, most of us do not adequately 
possess the skill and talent required for this job. In my 
limited experience with complex projects, the front end 
decomposition is, simply stated, very difficult. Not only is 
the decomposition difficult to do, there are problems in 
determining whether the decomposition is correct or even 
complete. Finally, the ultimate project success, years 
down the schedule, will depend upon proper and valid 
decomposition. Good software analysts can easily be 
worth their weight in gold. 

Who are the readers of MICRO? I suspect that most of 
the readers fall into the toolbox category. Like myself, 
they are interested in using their personal computers for 
solving the wide range of problems encountered in 
everyday living, not programming complex U.S. Defense 
Projects. Since everyday problems cannot always be 
anticipated, the software requirements change 
continuously. In addition, it is difficult and cost 
prohibitive to find a software ' 'middle man" with as much 
knowledge as the user. Only the user fully knows the 
problems to be solved. The toolbox approach simply 
makes good sense for most MICRO readers. 

Where does this leave MICRO? I think that MICRO 
should expand to cover these new software environments. 
Versions of FORTH are available on most micros; similar 
versions of LOGO are supported on both Atari and Apple 
(LOGO Computer Systems, Inc. I; UNIX is rapidly 
becoming the de facto operating system for the 68000 
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microprocessor family. Details of specific implementa- 
tions as well as the general philosophy behind each 
software environment need to be covered. Each language 
has its own niche with unique advantages and 
disadvantages. The languages discussed here are not 
free — they do require investment in software, hardware 
and effort. By covering these second generation user 
languages, MICRO will allow the readers to determine 
what they should invest in their current or future personal 
computers. These languages are receiving attention from 
many sources and I feel that MICRO must seriously 
consider their coverage. 

Mike Dougherty has worked in the software field since 
1977 and is currently a Software Engineer with Martin 
Marietta Denver Aerospace in Colorado. He has 
specialized in developing real time data acquisition and 
control systems. While most of his software has been 
written in assembly language, in the last few yers he has 
used FORTH for work and personal projects. He has 
submitted several FORTH programs/articles, the first of 
which, Structure Trees appears in this issue. 



[Editor's Note: This 'Guest Editorial' is essentially a very 
thoughtful letter MICRO received from the author in April. Since 
it expressed many of our thoughts very eloquently, we obtained 
permission to use it as an editorial.! 



Discover Forth 

Join the FORTH Interest Group 

The FORTH Interest Croup (FIC) is a non-profit member-sup- 
ported organization, devoted to the Forth computer language, 
join our 4700+ members and discover Forth. We provide our 
members with the information and services they need, including; 



Over fifty local FIG chapters (general and special 
interest) meet throughout the world on a regular 
basis. 

Forth Dimensions magazine is published six times a 
year and addresses the latest Forth news. A one 
year subscription to FDis free with FIC membership. 

The FIG-Tree is the FIC-sponsored, on-line 
computer data base that offers members a wealth 
of Forth information. Dial (415) 538-3580 using a 
modem and type two carriage returns. 

Forth publications: a wide variety of high quality and 
respected Forth-related publications (listings, 
conference proceedings, tutorials, etc.) areavailable. 

The FIG HOT LINE (41 5) 962-865 3, is fully staffed to 
help you. 

The |ob Registry helps match Forth programmers 
with potential employers. 

All this and more for only $15.00/yr.($ 2 7.00 foreign) 
lust call the FIC HOT LINE or write and 
become a FIC member (VISA or MC accepted.) 






Don't rrnss our upcoming 
6th Annual forth Convention 
November 76-77, 1984 at the 
Hyatt Palo Alto in Palo Alto, CA 
Call or write for details. 




(415) 962-8653 

PO Box 1105 

San Carlos 

CA 94070 
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MICRO Goes FORTH 

I agree with the position set forth by Mike Dougherty in 
the preceeding editorial. Starting with this issue, MICRO 
intends to provide regular support for programming in 
FORTH. Our recent Reader Survey indicates that 
approximately one-fifth of you already program in 
FORTH. This means that many of you are capable of 
providing FORTH oriented material for MICRO. The 
primary thrust should be FORTH programs and utilities 
that can be added to other reader's 'toolboxes'. Since 
FORTH is fairly standardized and is available for all 
microcomputers, the value of each well-written FORTH 
program extends far beyond the bounds of the 
microcomputer that it was written on. This should be a 
refreshing change from machine specific BASIC and 
assembly programs. If you are a FORTH devotee, here is an 
opportunity to share your accomplishments and 
enthusiasm with other serious computerists. 

Of course, if one-fifth of the readership program in 
FORTH, then four-fifths do not! For these readers, MICRO 
would like to provide introductory tutorials, 'how-to-get- 
started' projects, buyers guides to FORTH materials for 
specific microcomputers, complete applications and 
utilities, and overall, an incentive to make the effort to 
learn a new language. Make no mistake — it does take 
effort. You will have to purchase a version of FORTH for 
your system, install it, use an editor that may be totally 
different from that which you are familiar with, learn a 
whole new way of approaching and solving problems and 
memorize a strange, new vocabulary. But, MICRO will be 
there to help. 

The editors at MICRO are not FORTH experts. We are 
just learning to use FORTH. On the one hand, this means 
that we will be very sympathetic and understanding about 
the difficulties other programmers encounter in getting 
into FORTH. On the other, it means that we will be very 
dependent on those of you who already are experts to 
provide the articles and programs that will make FORTH a 
successful part of MICRO. If you have never tried FORTH, 
try it. If you are a FORTH enthusiast, support it. 

Atari 

It was not.suprising to find from the Reader Survey that 
the two most popular microcomputers were the Apple 
(39%) and the Commodore 64 (39%), with Atari (13%) a 
distant third. Still, I feel that the Atari family of 
microcomputers has many features that should make it 
interesting to the serious computerist. Unfortunately it 
has: a 'game orientation' stigma attached to it; a non- 
Microsoft BASIC with a number of 'odd-ball' 
constructions — especially in dealing with strings; some 
annoying aspects such as the 'beeping', the 'graphic mode 
key' where the right-hand 'shift key' should be, and so 
forth. MICRO'S coverage of the Atari has been weak 
relative to that of the Apple and Commodore. This is not 
due to our lack of interest! It is due to a lack of good article 
submissions on the Atari. Although only about one-third 
as many readers own Ataris as own either Apples or C64s, I 
would estimate that we get ten (10) or more submissions 
for each of these computers to one (1) received for the 
Atari. We try to convert some articles submitted for other 
micros to the Atari, (see Time- Series Forecasting in this 
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issue], but this is a lot of extra work. While it might be 
tempting to just drop the Atari, I still have hope for this 
micro. Especially now that Jack Tramiel, the man who 
took Commodore to the top, has taken over Atari. While 
Atari may currently be down, do not count it out. If those 
of you who use Ataris start submitting 'meaty' articles, 
then you will see a lot more in MICRO on the Atari. Let's 
hear from you. 

Advertisers 

The money you pay for your copy of MICRO, whether 
through a subscription or at the counter, does not begin to 
pay for the cost of producing it. If MICRO was dependent 
solely on its distribution revenue, then you would be 
receiving an 8 to 12 page newsletter. The additional 
revenue required to run MICRO comes primarily from 
advertising. Advertisers pay to run ads for one reason: they 
want to make sales. How does an advertiser know if his ad 
is working in MICRO? While a few have a special 
'department number' or other encoded information in 
their address, most do not. They will only know that you 
saw their ad in MICRO and were positively affected by it 

If You Tell Them! 
When you contact an advertiser to buy a product or for 
more information, please tell them that you saw it in 
MICRO. You can not over-estimate the effect this will 
produce. The size of MICRO is determined primarily by 
the amount of advertising. If you want to see MICRO 
grow, then 

Support Your Advertiser 
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For computerists who want to communicate with 'third 
generation' computers, our tree (a 'structure tree' which 
was generated by Dougherty's 'Structure Tree Utility'). 
might bring to mind Dr. Moore, who named his solution 
FORTH (fourth generation language). As Nature creates 
trees of brilliant variety, so can the user of FORTH. 

Cover Photo by Cindy Kocher 




Telecomputing 



with a difference! 



| SuperTerm — the only software that communicates with 

| them all! Information networks such as CompuServe; 

| business and university mainframes; free hobby bulletin 

| boards. 

I Professionals and students: SuperTerm's VTI02 emulation 
jj gets you on-line in style. Advanced video features, graphics, 
| full-screen editing, 80/132 column through sidescrolling, 
I extended keyboard — perfect for EDT, DECMail, etc. Even 
download your workfiles and edit off-line! Full printer and 
I editor support; other emulations available. 

| Researchers and writers: SuperTerm's built-in text editor 

J helps you create, edit, print, save, send and receive text 

| files — articles, stories, reports, inventories, bibliographies — in 

i short, it's your information work station. Access 

| CompuServe, Dow Jones Information Network, 

| Dialog/Knowledge Index, Western Union's Easylink, The 

i Source, and many more. Optional Sprinter accessory saves 

| printing time and S (see below). 

I Computer hobbyists: Join in the fun of accessing hundreds 
| of free bulletin board systems fBBS) for Commodore, Apple, 
j TRS-80, etc. Text mode with all BBS systems; up/downloading 
I with Commodore BBS systems |Punter protocol). Special 
I protocol for up/downloading with other SuperTerm owners. 
i Popular "redial-if-busy" feature for use with automodems. 



I Get the information you need, for business or for fun, 
1 with the software that communicates with them all ! 



Requires Commodore 64. disk drive, and suitable manual- or auto-modem. Printer 
optional. Software on disk w/free backup copy Extensive manual in deluxe Dinder. 



J SuperTerm's 

SPRINTER Accessory S69' 5 

I With the Sprinter accessory, SuperTerm can perform 
| concurrent printing — as text appears on your screen, it's 
j« simultaneously printed on your printer. Includes all necessary 
J hardware for connecting your parallel printer and computer 

via the cartridge port. Simply plug-in and go. Free utility 
;} software for printing and listing as a stand-alone interface. 

I Requires parallel printer such as Epson, Gemini, Microlme. Cltoh. 
I |Min. speed 35cps ) 

s Commodore 64 is a trademark of Commodore Electronics, Ltd. . 

/n-lfi\ *oo 7onn Send ,or a ,ree brochure - 

\o i o; j j j- / ^uu MAIL 0RDER . ^ $1 m shipping arM 

UI-^tafE-fT handling i$350 for CO.D), VISAMastercard 
PllL/Wtjl JC-sptflc; irate* and exp date) MO residents 
add 5625°': sales lax. FotHgn orders payable 
USS. US Bar* ONLY' add SS shprtindlg. 
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To The Editor 



I believe that the most basic need in the micro field is the 
tranportability of software from one brand of computer to 
another. 

I, unfortunately, purchased a good computer that is no 
longer very popular. I have converted it to CP/M to relieve 
the software problem, but find that even that uses a 
nonstandard disk format which is difficult to get 
translated from the usual IBM format. Even with CP/M 
there are about 20 different disk formats. 

I believe in innovation but I find it difficult to 
understand why a program written in a high level language 
cannot be portable between almost all micro-computers in 
some reasonably convenient way. 

I'm in the process of determining what my next com- 
puter will be. But I do not intend to buy the latest model 
every year. The big question is not what is "state of the 
art" or what is fastest, it is what computer is the software 
going to be available for in five year or ten years. Now, 
most new software is being written for the IBM PC. Even 
CP/M-80 is being ignored by many vendors. Until 
recently, I thought that maybe I.B.M. would be good for 
many years but now I'm almost convinced that technical 
limitations will prevent if from being effectively expanded 
to larger systems such as UNIX and ADA. However, I do 
not think that a Motorola 68000 based system will domin- 
ate without the support of at least one large company in a 
moderate price range. I know that all software writers 



cannot provide all software for all formats and all 
languages when almost all computers are different. So why 
cannot all computers be provided with a second standard 
ASCII disk format which is common to all computers for 
the purpose of transporting software and data. Then the 
addition of software translaters such as Apple Basic to 
Commodore Basic or even Basic to Pascal could reduce a 
nasty problem to one that is managable by most users. I 
doubt that every one is going to agree on any standard by 
which this can be done, so maybe a solution would be for a 
technically oriented magazine such as MICRO to publish 
the software and hardware specs needed to read from the 
various disk formats. 

CM. Nelson 
Indianapolis, IN 46256 



The following limerick was submitted by Margie Joseph of 
Los Angeles, CA. 

Though sometimes her memory would slip 

And sometimes her mind took a flip, 

But now don't dispute'r 

She's got a computer 

Her memory's a silicon chip. 
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• Gives names and locations of various Integer 
BASIC, Monitor, Applesoft, and DOS routines and 
tells what they're used for 

• Lists Peeks, Pokes and Calls in over 2000 
memory locations 

• Explains how to use the information for easier, 
better, faster software writing 



The revised edition with lie Appendix is now 

available at a new low price of only $19. 95. (plus $2 

sh/h). 

For the 35,000 people who already own previous 

editions, the He Appendix is available separately 

for just $5.00. 



WE'VE v - 
ADDED APPLE He 
GUIDE & ATLAS 

NOW THERE 
NOTHING MORE; 
TO SAY! 
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To order, send check or Money Order to: S 

MICRO INK 1 

P.O.Box 6502 | 

Chelmsford, MA 01824 | 

phone 617/256-3649 (use VISA or MasterCard) s 
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McMill 68000 
Coprocessor System 



Distributor 

Stellation Two 
P.O. Box 2342 
Santa Barbara, CA 93120 
(805] 966-1140 



Introduction 

The McMill 68000 Coprocessor System is designed for the 
Apple II and He. It is a peripheral board that enables 
the Apple to run 68000 programs. The CPU is a 68008 chip 
that utilizes direct memory access logic allowing the 6502 
and 68008 to alternate memory cycles. All memory and 
I/O slots can be directly accessed via the 68008. Using 
alternating cycles while the 68008 is running, the 6502 
continues to execute at one-half speed or faster. Special 
address translation logic resolves conflicts among 68000 
exception vectors, 6502 zero page and Apple II I/O space 
locations. The fact that the McMill 68008 is truly a 
coprocessor that runs simultaneous tasks with the 6502 is 
a particularly powerful advantage. (During disk access, 
game paddle reads and any other timing-loop dependent 
functions the 68008 must, of course, be halted.) 

Installation 

The McMill 68008 Coprocessor System board is painless 
and easy to install. All that is necessary is inserting the 
board in one of the peripheral card slots. There aren't any 
additional connections or worries to deal with. 

What is Provided 

The package includes the McMill coprocessor board, 
Hardware Documentation Guide, a Motorola Inc. MC 
68000 Microprocessor Programming Card, a floppy disc 
entitled Fig Forth, version 1.0 Mountain View press, 
hardware warranty (McMill will repair or replace free 
of charge any board that is defective within one year of 
the original purchase date, damage caused by accident, 
misuse, or tampering not included). 

You can also order the S-C 68000 Cross Assembler 
with the McMill Coprocessor System. This is an excellent 
assembler as those who already have their 6502 version 
will attest to. All S-C assemblers use the same set of 
directives and commands, making adaption to different 
chips very easy. The 68000 version has some differences 
from the standard S-C Macro Assembler, such as expres- 
sions being expanded to 32 bits, and other alterations 
necessary to accommodate the code and syntax differences 
in the 68000. All variances are clearly documented. 
Included in their latest version are 10 new commands and 
7 new directives, improving what is already a fine product. 



Under a special arrangement with Addison-Wesley 
Publishing Company Stellation has been allowed to 
provide a monitor from Tim King and Brian Knight's book 
'Programming the M68000.' The book takes the reader 
through the world of the 68000 and how to program it. A 
floppy disk with their monitor and a debugger is provided. 
The monitor/debugger is compatible with the S-C Macro 
assemblers source files, allowing easy editting and 
assembly. 

What is Not Provided 

The board itself hasn't any ROM or RAM. None of the 
languages most 68000 users would use are provided, 
namely C, Fortran, UNIX, and LISP. Although a version of 
C is due to be released, this is still a serious shortcoming. 

Documentation 

This is where the McMill package is the weakest. The 
Hardware Documentation Guide could cover more and 
include a schematic diagram that is legible. Expanded 
hardware documentation is scheduled for release, which 
will hopefully correct the shortcomings of the present 
version. The Monitor/Debugger relies on the information 
in King and Knight's 'Programming the 68000' for 
documentation. The information needed is basically there 
but the organization is not. It is organized as a chapter 
in a book (which is what it is), not as documentation for 
software. Although the Mountain View Press Fig FORTH 
is included with the McMill package, you have to send 
away to Mountain View Press to get the complete 
documentation (for a nominal charge). This strikes me as a 
good way to create unhappy and frustrated users. It would 
make more sense to charge more for the package and 
deliver it complete, rather than inconveniencing and 
possibly annoying the user. 

Price 

The McMill with FORTH is $229.00; with the S-C 
Assembler it is $299.00. 

Conclusion 

This package has its ups and downs. It does gives the 

Apple user an inexpensive way of upgrading to a 68000 

machine, while not having to give up the familiarity 

of his present machine. On the other hand the poor 

documentation, lack of on board RAM and ROM, Fortran, 

LISP and UNIX are enough to discourage many users. For 

those who are soley interested in getting into 68000 

Assembler, using the S-C Macro Assembler with the 

McMill board is an inexpensive means of doing so. In the 

end it depends on what your needs and expectations are as 

to whether this is a product for you. -.,—.«. 
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Super Action Software! 




Perplexian Challenger $29.95 



The inci"2diljl> i-esuun 
space fighter is ,r; vo'..-" 
a connnLOus display c : 
d e: a tnree-:Jirrie'is;crd). 



'. ■,hree-a*is |Oystick consul of a 

ci-i Spi'L bi_i ten graphics provide 

r ship's '"iSLrL:i;ier ; cation ys 'well 

■iciLecl vie 1 /- ot space 

You. as a O'lut. rrusr utilize pruning fast reflexes to destroy 

.■leading ships, and avoid the:r ^eturn fre Simultaneously, you 

must maneuver your ship tn capture space debns that 

remains from the explosions 

Outstanding grapnics features include smooth 3-D 
rotations, spht screens, and the nose incredible high- 
-esoluticn hyperspace sequence ever produced 

Pragrammec entirely m machine language, this aciiar- 
strategy game 'S guaranteed r.o bbiv you away 

All the professional features you expect are included, 
automatic seif-deinc, high scare retention, pause, anc 
provisions for 1 to 4 players. Add to this, features you dent 
expect like eas^-luading and music during the load. Perplexian 
Challenger is a game that brings the arcade experience to your 
home 





DENVER, COLORADO 

CYBERWORLD £3995 

This five-screen arcaae adventure packs the computer with 
intense graphics and sound! You are a special Cyberleague 
agent in a universe full of hostile aliens and vicious robots. 
Joystick and keyboard transport you through 3-D rooms, 
space Darners, fleets of invaders, and warship-ridden 
quadrants of space Over 1 00 sprites. 8 new character sets, 
and dozens of m nd-boggling sound effects make up this multi- 
layered adventune. Animation, action, and strategy all 
combined into a game so extensive that two disk sides are 
lammed with game programs and data! Reach the ultimate 
rank of admiral and you mey carve a niche ip. the permanent 
high-score Its t. A full-size book quality manual with full-color 
covers is included to guide you through your most exciting 
game experience 



*x>izaRds39 9 5 

Jump from ropes to ladders, dodge plummeting boulders and 
duck under deadly arrows in your quest for sparkling diamonds, 
gleaming bars of gold, and glistening pearls. With joystick in hand 
you must explore forty dazzling screens, each a new and exciting 
adventure. Take the key to unlock rhe doorway to your nexr spine- 
tingling level, Each key restores your magical powers, allowing you 
ro casrover rendifferentspells. With rhese magic spells you have the 
power to overcome vicious creatures, terrifying traps, and perilous 
plunges. 

Your Wizard is realistically animated in every possible direction. 
Dozens of movements are possible — jump over burning fires, 
shimmy up or down ropes and ladders, even slip down treacherous 
sliding staircases! Magic portals move your Wizard through midair 
and prorect you from a myriad of fully-animated fiendish monsters. 
Catch an elevator to the top of the screen and dart through sliding 
gates in your quest for magic and treasure. 

Wizard's fascinating variety of screens are sure to please and 
entertain, and of course you can build an unlimited number of your 
own levels using (he construction set provided with your game. 
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^PROFESSOR S3«5 

An m-depth self-tutorial for the Commodore 64 on a Iwo- 
sidod disk. This menu-driven tutorial covers every aspect 
of your C-64 — BASIC, keyboard, sound, music, simple and 
advanced graphics. Quizzes lest your comprehension at 
the end of many lessons' On-screen illustrations, sound 
effects and full-color in tyrant ive graphics make learning 
easv and interesting. The PROFESSOR is your ONLY choice 
for an all-in-one, thorough tutorial about Ihe Commodore 64! 




(§o%tuig's ^Jlair $39.95 

Real-time adventure excitement at its best Sol^e countless 
puzzles and slay over a dozen monsters by using the huge 
vocabuiary ot over 200 words Two challenging difficulty levels 
await you with over 80 areas each fully described in Old English 
script 

Menacing monsters, knivmg villains, tattered coae books and 
treacherous terrain are just a tew of the situations you must 
overcome m your quest for the thirteen priceless treasures More 
than seventy objects are invaluable to you in your search tor glory 
and wealth' 

A full-size, thoroughly illustrated manual is included Featuring 
color front and back, book quality, and a fold-out map this 
■extra further extends the professionalism 0! 'his game The 
lolloping are quotes Irom unsolicited testimonials sent to us by 
adventurers .n Gothmog s Lair 

" I have extremely en|oyed Gothmog s Lair and plan to buy more 

adventure games 

Scott Tulman 
Memphis. TN 

Golnmog s Lar is the Dest adventure I ve eve: piayed 

Dennis Manochio. Jr 
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Supershipper 64 

A complete multi-printer shipping system which operates 
1111 the inexpensive Commodore 64. Offers all the features 
ol more expensive, more cumbersome business soft w urn a I a 
low. low puce, full-screen, full-cursor editing on all dal.i 
entry. Pnnis imuices. CO D. lags, mailing and shipping 
Libels. Sorts ynui customer list aphaludically. by Lily stale 
or by salesperson. Keeps complete rec.irds of all iru oices 
and accounts on disk — up In 800 accounts pet disk! Auto- 
matic backups, product charts and many other features 
ait- also included. 



Supershipper Accounting 

The accounting supplement to the Supershipper 64. Prints 
statements, bank deposits, past due accounts and daily or 
monthly Siller reports. Breaks tlmvn sales commissions nnd 
prints all customer's past transactions. Also provides 
inventory control for up to 200 diflei ent products. The only 
way to fully computerize your business! 

Supershipper 64 $99.95 

Supershipper Accounting $79.95 




Progressive Peripherals & Software 

2186 South Holly, Suite #2, Denver, Colorado 80222 



Call fop mope information or a dealer near you. I^Oc"/! 

TELEX: 888837 (303)759-5713 (303)757-0830 TWX: 91 09971 314 
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Product Name: Person-to-Person 



Product Name: Wizard 

Equip. Req'd: Commodore 64 

Price: 39.95 

Manufacturer: Progressive Peripherals & Software 

2186 South Holly, Suite #2 

Denver, CO 80222 

Description: If you must have a game, it should at least 
utilize the built-in capabilities of your computer to the 
maximum. Wizard does! The game is of the "Donkey 
Kong" genre in which you move around the screen to 
reach an ultimate destination, while getting points by 
taking treasures and avoiding fatal hazards. Through the 
use of sprites, clever sound effects, a superior collection of 
options, a large number of screens and many unique 
concepts, it goes far beyond similar games. For example, 
there are 'spells' that can be used to ward off calamity. 
Some of these, such as 'invisibility', can protect you from 
harm, but at the same time may make it more difficult for 
you to move around the screen since you can only see the 
wizard against colored backgrounds. Also, the invisibility 
'wears off as you use it to avoid destruction. High scores 
are automatically maintained on disk. 

Pluses: The utilization of the Commodore 64's sprites, 
sound, programmable characters and color provide an 
excellent demonstration of the capabilities of the 
computer and should inspire programmers to improve 
their own displays. The game involves more than just the 
complex coordination found in many other games. A good 
deal of strategy is required to master the game. The game 
is even fun to watch while another plays, so that sharing 
the game in a multi-player mode is enjoyable. The choice 
of screens, speeds, spells and so forth keep the game from 
getting repetious, even after many hours of play. The most 
significant feature is the ability to generate your own 
screens! This goes beyond merely playing the game. This 
gives the novice a chance to experience the joy of 
'programming' a computer to make it do what he wants. 
He can design screens as complete as those that come with 
the package, with hazards, spells, colors and the like. 

Minuses: It may become habit forming. 

Documentation: Very extensive for a game. Provides 
more than enough information to play the game and to 
create new screens. 

Skill Level: With the variety of speeds and screen 
difficulty, the game is suitable for all ages. The new screen 
creation is limited only by the users imagination, not any 
knowledge or training limitations. 

Reviewer: Robert M. Tripp 



Equip. Req'd: 



Price: 
Manufacturer: 



Apple II, II + , He- DOS 3.3 

Modem recommended-Hayes, Apple or 

Novation 

$39.95 

Trutec Software, Inc. 

1700 Solano Ave. 

Berkeley, CA 94707 



Description: A full-featured communications program 
including a mailing list/telephone list file, auto-dialing, 
including secondary carriers, terminal program with auto 
log-on and printed output, including form letters and 
mailing labels. The entire program is menu-driven with 
consistancy of response throughout the program. The 80 
page documentation is easy to read and completely 
explains any possible questions. The manual includes 
many examples of command files. 

Pluses: This program has all the bells and whistles of 
standard communications/ terminal programs, plus it 
incorporates a complete mailing list program with 
telephone numbers that can be searched and dialed, 
including pass word numbers to carriers such as MCI and 
SPRINT. A single keystroke can dial and log-on to such as 
CompuServe and Source, upload electronic mail, check 
your mailbox, download its contents, sign off and hangup. 

Minuses: None noted. 

Skill level required: No prior experience required. 

Reviewer: Phil Daley 



Product Name: Mail Now 

Equip. Req'd: Commodore 64 with disk and printer 

Price: 

Manufacturer: Cardco, Inc. 

313 Mathewson 

Wichita, KS 67214 
Author: S. & S. Faure and G. Coggin 

Description: A user-friendly mailing list program for 600 
names per disk with add, delete, modify and sorting 
options. The printer options include one or more rows of 
labels, repeat labels, and printer codes for double strike, 
enhanced, etc. There is also a convert function to change 
the file format into one readable by the Write Now! word 
processor. 

Pluses: If you are familiar with label systems, the manual 
is almost superfluous - the program is thateasy to follow. 
The search command quickly and easily can find a string 
in any major field. Modify quickly changes any data. The 
program performs flawlessly. 

Minuses: If you like slapstick comedy, read the manual. 
Otherwise just use the program and forget the satire. 

Skill level required: No prior knowledge required. 

Reviewer: Phil Daley 
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Product Name: Stockerl 

Equip. Req'd: Apple II, II + , He - CP/M only 

with Z80 card, TRS80 Mod IU, 4, II, 
12, 16 card 
Price: $300.00 

Manufacturer: Engineering Management Consultant 
P.O. Box 312 
Fairfax, Virginia 22030 

Description: This package is designed to help the user 
forecast stockmarket turning points, enabling better 
investment and profit performance. 

Pluses: Using a unique Moving Window-Spectral method 
Stockerl saves time in stockmarket forecasting. Inputting 
of historical data is easy and user friendly (prompting 
provided). Stockerl employs a univariate model (one vari- 
able in, the same variable out). Future values are predicted 
using historical data which is input in a user oriented data 
editor. Data can be entered in a Create mode or Update 
mode. Statistical comparison is provided in addition to 
graphical representation and comparison. Charts/graphs 
are in an easily readible form. One free hour on the 
Electronic Forecast Information Service is also included in 
the package. 

Minuses: If the user is not very familiar with stocks and 
forecasting he is apt to be lost with this program. This is 
certainly not a program for the uninitiated. At one point 
through an error entered into the program we ended up in 



OS9 

APPLICATION 
SOFTWARE 



ACCOUNTS 
PAYABLE 

$349 

ACCOUNTS 
RECEIVABLE 

$349 



GENERAL 

LEDGER 

with 

CASH 

JOURNAL 

$449 



PAYROLL 

$549 

SMALL 

BUSINESS 

INVENTORY 

$349 



COMPLETE DOCUMENTATION $19.95 

OS9 & BASIC 09 ARE TRADEMARK OF 
MICROWARE, INC. & MOTOROLA CORP. 



SPECIALTY 
ELECTRONICS 



(405) 233-5564 
21 10 W. WILLOW - ENID, OK 73701 




an infinite loop. A second try did not produce this prob- 
lem. Unless you are a serious player of the market it would 
be hard to justify the cost of this program. 

Documentation: The manual provided is clearly laid out 
and reasonably easy to read. Instructions and descriptions 
are understandable if the user has an understanding of the 
subject. It is assumed the user is familiar with his com- 
puter's operating system. Technical data is provided, as 
are sample case studies, and a bibliography. The manual 
does suffer from a number of typos. 

Skill level: Intermediate to advanced. 

Reviewer: Mark S. Morano 



Product Name: MPP-1000C Modem 

Equip. Req'd: Any Atari Computer 

Price: $149.95 

Manufacturer: Microbits Peripheral Products 

225 W. Third Street 

Albany, OR 97321 

503/967-9075 

Description: There probably is not any easier way to get 
into telecommunications with your Atari. The package 
consists of the modem which plugs into a joystick port and 
a standard telephone connector; a cartridge containing the 
terminal software; and a short manual. The program is 
totally menu driven, making it simple for anyone to use. 
The following features are supported: display disk drive 1 
directory; direct transfer of information between disk and 
modem; buffer modem to memory and then copy to a 
specified device and visa versa,- select between full/half 
duplex, ASCII/ATASCII translations, X-modem protocol 
on/off, 38/40/80 column display, no/odd/even parity; 
auto answer; enter/save/load up to ten phone numbers to 
be used to dial number, and more. By combining the 
various features, files may be up /down loaded from Atari 
Bulletin Boards (BBS), other Ataris and other computers. A 
CompuServe demonstration package is included, and, 
thoughtfully, a list of bulletin board services listed by 
state throughout the country so that you have someone to 
talk to when you first get started. 

Pluses: Extremely easy to connect, use, and understand, 

Minuses: None noted. 

Documentation: Basic information is covered well A 
few more examples of combining the various options for 
specific tasks would have been useful. 

Skill level: Any and all. 

Reviewer: Robert M. Tripp 
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Basic why's and wherefore's about the FORTH language. 
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by Kenneth Butterfield 
Los Alamos, New Mexico 



In the early spring of 1978, I first 
learned of FORTH from an 
advertisement for PetForth by 
Programma International. At the time, 
I was doing scientific calculations and 
was looking for a language that would 
be faster than the Pet BASIC. Another 
goal I had for the PET was to use it to 
control experiments in a physics 
laboratory. I called Programma to find 
out if FORTH was suitable for my 
needs. The call was transferred to the 
programmer who had written PetForth 
which really gave me a feeling that I 
was getting first class service! My first 
question was 7s FORTH a good 
Language? and the response was the 
classic, I don't use languages, I just 
program them! The question Is FORTH 
a good language? remained 
unanswered. I hope to provide my 
answer to this question, as well as to 
the questions What is FORTH?, and 



Who would be interested in FORTH? 

First, FORTH is more than just a 
language. It can be a stand-alone 
operating system that provides basic 
support for terminal and disk control. 
Multi-tasking and multi-user FORTH 
systems are available. FORTH also 
provides a block structured high level 
language that can be used in an 
interpreted or compiled mode. Among 
some of the block structures provided 
are the DO. ..loop, BEGIN... 
WHILE. ..END, and BEGIN.. .UNTIL 
loops and the IF...ELSE...ENDIF 
control structure. On the other hand, 
FORTH has been called a pseudo- 
machine language because the key 
words used for moving data from place 
to place are very simple and similar in 
use to the techniques used in assembly 
language. 

FORTH can have all of the above 
features because it is an extensible 



language. Most implementations of 
FORTH have a small kernel written in 
machine language and the remaining 
80-90% of the language is written in 
FORTH. Any new 'words' (FORTH's 
name for a procedure or subroutine) are 
defined using the previously compiled 
words. Each new word becomes part of 
the FORTH 'dictionary' (list of words 
or commands) and are available for use 
in future definitions. The programs 
that you write become part of the 
language. 

One of the nicest features available 
in FORTH is the on-line interpreter. 
Commands may be given to FORTH 
from the keyboard in a similar manner 
to the 'immediate mode' of most 
BASIC interpreters. This allows 
FORTH to be used as a calculator. 
Another use for the interpreter is in 
program development and. debugging. 
The interpreter allows the programmer 
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to try out a sequence of commands, one 
at a time, to verify their consequences. 
After the sequence has been shown to 
work properly, it can be given a name 
and compiled into the language for 
future use. A program [word) is 
activated by typing its name in the 
interpreter mode, or by entering the 
name in the list of names that makes 
up the definition of a new word. 

FORTH was originally written by 
one man, Charles Moore, to provide a 
better media for program development 
than the languages available at the 
time. One of its first uses was in real 
time computer graphics where, it is 
said, FORTH provided a marked 
increase in speed over FORTRAN! 1). 
The first widespread use of FORTH was 
in the computer control of large 
telescopes, and FORTH continues to be 
the language used at many of the 
world's largest observatories. In fact, 
my early interest in the language grew 
when a fellow student informed me 
that FORTH was the language he used 
when doing his research at the Kitt 
Peak Observatory. It seemed to me that 
a language that could control a large 
telescope should be useful in other 
control applications. 

More recent uses of FORTH 
continue the computer control theme. 
Two applications are the control of 
robot cameras for special effects in the 
motion picture industry[2J, and remote 
sensing of water depth and speed for aid 
in navigation of large barges on inland 
waterways(3). FORTH is still strong in 
the area of computer graphics. Charles 
Moore has a CAD-CAM system that 
runs in 28K of memory (4). FORTH has 
been shown to be very useful in 
research laboratory settings where the 
experiments vary from day to day. It is 
important to have a language that is 
flexible, allowing the measurement 
(spectrometers, ADC's, etc.) and 
control devices (stepping motors or 
relays) to be connected in new and 
often changing configurations. 

New uses for FORTH are being 
developed all of the time, and some of 
the most exciting are in the area of 
artificial intelligence. LISP is the 
language usually associated with AI 
projects, but there is a marked 
similarity in the underlying structures 
of LISP and FORTH. Both languages 
treat data and programs as lists, and 
have the feature that a program can 
create and manipulate a list that will 
latei be used as a program. Programs 
written for the two languages are 



similar except for the notation. LISP 
uses a parenthetical notation while 
FORTH uses a parenthesis free 
notation originally derived for formal 
logic by a Polish logician, Lukasiewicz. 
The difference in usage can be 
compared to the difference in using an 
algebraic calculator such as produced 
by Texas Instruments, versus a 
'Reverse Polish' calculator from 
Hewlett Packard 

In the FORTH compiler, new words 
are added to the dictionary, and can be 
used in the definition of future 
programs. The structure of a word 
consists of a header section containing 
the name of the word and pointer and a 
data section. The data can be either a 
constant, a variable, a list of variables, 
or a list of addresses if the word is an 
executable word. It is LISP's ability to 
treat a list as either data or program 
that makes it useful for AI 
programming. It is not surprising, then, 
that FORTH can also be used for AI 
applications. What is surprising is that 
FORTH may have significant 
advantages for some projects. 

For instance, in a knowledge-based 
system developed by General Electric 
to diagnose and troubleshoot large 
electric locomotives, a FORTH system 
operating on a PDP-11 minicomputer 
was found to be smaller and faster then 
a LISP system operating on a VAX 
computer] 2). If you think that such a 
system would be out of your reach, a 
program recently became available for 
CP/M based computers that supplies 
an expert system language written in 
FORTH. A recent article uses this 
language to develop a weather 
prediction program(5). 

Hopefully, I have convinced you 
that FORTH is a powerful language 
that is useful for many different 
applications. Not only has FORTH 
been used to control large telescopes 
and explore artificial intelligence, it 
has been used to program text editors, 
data base systems, spreadsheets and, of 
course, games. Application programs of 
these types are often available from the 
same vendor that sells a version of 
FORTH for your machine. 

If you are interested in FORTH 
there are many good sources of 
information. Various computer 
magazines print articles on FORTH 
either occasionally or on an annual 
basis. Other sources of information 
include newsletters and books. 

MICRO has told me that it plans to 
publish more FORTH articles now that 



their emphasis has returned to reaching 
the experienced users. Dr. Dobbs 
Journal has had an annual FORTH issue 
for several years. It comes out in 
September and is usually very good. 
Several other magazines have 
published an article on FORTH at one 
time or another. You might check the 
availability of back issues. 

One of the best information sources 
is the FORTH INTEREST GROUP, 
FIG, (PO Box 1105 San Carlos, 
CA. 94070). FIG publishes a bi-monthly 
newsletter and has local chapters in 
many cities. Membership in FIG is $15 
and includes a subscription to FORTH 
Dimensions. FIG also has source 
listings of FORTH for many 
microprocessors and many 
minicomputers. The FIG-FORTH 
installation manual is a very 
interesting document and I highly 
recommend its purchase because it 
contains vocabulary listings with 
descriptions of the use of each word. It 
also contains a complete FORTH 
implementation written in FORTH as 
an example of how large programs can 
be written! 

There are several good books 
available ranging from introductory 
level to advanced application. Starting 
FORTH by Brodie is a very good 
introductory text with the caveat that 
it uses FORTH Inc. syntax. Threaded 
Interpretive Languages by Loeliger is a 
very good text on the design and 
implementation of threaded 
interpreters (FORTH is only one 
example] and would be a good choice 
for more experienced computerists. 
Mountain View Press, Inc. (PO BOX 
4656 Mountain View, CA. 94040) lists 
over 30 books and manuals, a dozen of 
these being general descriptions of 
FORTH. 

One last source that should not be 
overlooked is the instruction manual 
that comes with a FORTH system. 
There are many vendors that supply 
FORTH systems, and many of these 
have very good documentation that 
comes with their product. 

This brings up my final topic. If you 
decide to get a FORTH system, what 
should you buy? As usual, a simple 
question like this cannot be answered 
simply. First you have to decide 
whether to implement your own 
version of FORTH using a source 
listing (from FIG) or to purchase a 
complete system. There are complete 
systems for practically every computer 
that has been on the market for more 
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than a few months. In fact, one 
computer (Jupiter Ace at $150) comes 
with FORTH as its main language. If 
you decide on a complete system you 
then have to decide on which FORTH 
standard to use. 

Most people will want to purchase a 
complete system from a vendor. This 
has the advantage of having a working 
program immediately, and someone to 
complain to when it doesn't function 
in the expected manner. The main 
standards that exist are original FIG- 
FORTH, FORTH79, and FORTH83. 
These are all standards defined by FIG. 
Fortunately, FORTH83 supercedes 
FORTH79 and should become the most 
common standard as vendors update 
their product. Original FIG-FORTH is 
very common and can be extended to 
meet the later standards. 

Another version of FORTH comes 
from FORTH Inc. This company was 
started by Charles Moore, so their 
FORTH has to be considered as a 
standard because it is the 'original' 
FORTH. FORTH Inc. produces a very 
professional package for many different 
computers. They might be considered 
the Rolls Royce of FORTH systems. 

There are many vendors that 



produce a FORTH that does not meet 
any of the above standards for one 
reason or another. Quite often these 
systems have a marked speed 
improvement over a standard system. 
Be aware, however, that the speed 
increase is usually obtained at the 
sacrifice of portability to other 
machines (including other processors) 
which is one of the main benefits of the 
standard systems. Another possible 
sacrifice that is sometimes made is the 
ability to produce ROMable code. Of 
course this capability may not be 
something you need. Then too, this 
ability may not be an option on a 
standard system. 

My recommendations for personal 
use would be to buy a FIG-FORTH 
compatible system, and preferably one 
that has enhancements to meet 
FORTH83 standards. This type of 
system can run programs written for 
many different computers. Your first 
system should probably be a complete 
system purchased from a vendor. If you 
are really brave or foolhardy you might 
consider the option of configuring your 
own system starting with FIG source 
code. I have done this for a 6809 
computer and succeeded (mostly) in 



getting it to work. This is a particularly 
good route for someone who has built a 
computer from scratch. Implementing 
your own system is not easy, but it is 
tremendously satisfying when 
completed! In any case, FORTH is a 
very interesting language that is well 
worth learning. 
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C64-FORTH/79 

New and Improved 
for the Commodore 64 

C64-Forth/79 T " for the Commodore 64-$99. 95 

• New and improved FORTH-79 implementation with 
extensions. 

• Extension package including lines, circles, scaling, 
windowing, mixed high res-character graphics and sprite 
graphics. 

• Fully compatible floating point package including 
arithmetic, relational, logical and transcendental functions. 

• String extensions including LEFT$, RIGHT$, and MID$. 

• Full feature screen editor and macro assembler. 

• Compatible with VIC peripherals including disks, data set, 
modem, printer and cartridge. 

• Expanded 167 page manual with examples and application 
screens. 

• "SAVE TURNKEY" normally allows application program 
distribution without licensing or royalties. 

(Commodore 64 is a trademark of Commodore) 

TO ORDER 

-Disk only. 

-Check, money order, bank card, COD's add $1.65 

-Add $4.00 postage and handling in USA and Canada 

-Mass. orders add 5% sales tax 

-Foreign orders add 20% shipping and handling 

-Dealer inquiries welcome 

PERFORMANCE MICRO PRODUCTS 

770 Dedham Street 

Canton, MA 02021 

(617) 828-1209 
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ATTENTION COMMODORE 64 OWNERS: 
"Is THE CLONE MACHINE really dead?" 
Yes. there comes a time when a product grows old and isn't the 
latest state of the art. Thank goodness we understand that here at 
Micro- W. Our all new version (known as SUPER CLONE) will 
surely prove that we are still number one in the back-up business. 
You'll still get the old reliable 
Clone Machine but we've 
added the following: 

1) A fast clone copy (approx. 
14 minutes) thaf'ssimpletouse 

2) A Super Unguard utilility 
that quickly handles errors 
20 thru 29 (and you don't 
even have to disassemble 
your drive like some of our 
competitors suggest) 

3) A new unique way to 
back-up formerly uncopyable 
software. 

Don t worry if you are a 
registered owner of our earlier 
version, we've got you on 
file and this upgrade will only 
cost you $10 plus shipping 
and handling. Dealers, call 
us for stock balancing on old 
merchandise . 
STILL ONLY $49 9 5 * 




h Super Clone 



Available from: 

Micro' 

DISTRIBUTING. INC 



1342B Route 23 

Butler. N.J. 07405 

CALL (201) 838-9027 To Order 

Dealer and Distributor Inquiries Invited. 



* We will allow $ 1 5 trade cred;: for any other cop*, program : 
purchase of SUPER CLONE a( 549 9S ; w musi provide v 
■itale why you want outs ■nslead This offc rr.dy be *!»hc:ra 



-ju ha*.'t purchased toward The 
ryindi purchased produa and 
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Multi-Tasking in FORTH 



SUMMARY 

Multi-tasking is a method of allowing 
your computer to work on more than 
one program (task) at a time. I present a 
program that allows two separate tasks 
to run in the 'background' while still 
having the FORTH interpreter 
available in the 'foreground'. The 
sample tasks are a clock display, and an 
animated bouncing ball. These can be 
replaced by just about anything, 
including separate control programs for 
'software robots'. I have given enough 
detail to allow you to develop other 
uses of multi-tasking. 



FORTH is more than a language; it is 
an operating system as well. In 
addition, FORTH has the advantage of 
being changeable, and extendable. This 
makes FORTH an ideal media for 
learning how to implement various 
system operations. This paper will 
show how to implement one type of 
multi-tasking system. It includes a 
demonstration program comprised of 
two separate tasks (programs] that 
display the time, and a bouncing ball 
on the screen while FORTH is waiting 
for input from the keyboard. 

To run this multi-task system you 
will need a fig-FORTH system with an 
assembler. The multi-task words will 
work on any 6502 based machine with 
modification being required only in the 
stack partitioning (see section on 
extensions). Stack partitioning is 
defined in RESET.POINTERS, and I 
have shown partitions for two FORTH 
systems. The demonstration is written 
for either PET or CBM machines with 
version 3 or 4 BASIC. It should be easy 
to modify most parts of the 
demonstration to work on other 
computers. 

For those who are very thorough 
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A technique and program for running 
multiple tasks under FORTH. 
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proofreaders, the demonstration can be 
set up using screens 110, 111, 115, 116, 
and 117. Screens 112, and 113 are 
useful for debugging. Be sure the 
assembler screens for your system are 
loaded and then load screen 117. The 
other screens will be loaded 
automatically. As compilation takes 
place you will be told that some words 
(KEY, EXPECT) are not unique. When 
the prompt appears, run START. If 
everything is correct you will have a 
clock and a bouncing ball displayed on 
the top of the screen. In addition, 
FORTH will be ready for input from the 
keyboard. Hit a RETURN and you 
should get an 'OK' response. Try 
adding two numbers and printing the 
result. While you are typing, the 
display will operate normally. 
However, when you hit return it will 
stop momentarily while FORTH 
interprets the line, and then it will start 
up again. Now enter the following line. 

: TEST 100 DO I . LOOP ; TEST 

Note that the display is halted until 
TEST completes. Next enter 

.: TEST1 100 DO I SLEEP . LOOP ; TEST1 



This time the display should continue 
while the numbers are being printed. 
The lesson here is that you can define 
any FORTH word so that the multi- 
tasking continues simply by inserting 
sleep anywhere inside the most active 
loop. 

If you are the cautious type, or if the 
demonstration didn't work, you will 
want to debug each module separately. 
Screen 112 contains a simple example 
of multi-tasking that can be used to test 
screens 110 and 111. If you don't have a 
Pet computer this screen will be the 
easiest way to try multi-tasking, since 
it won't require modifying the 
demonstration screens to run on your 
machine. Each of the tasks in the 
demonstration can be tested in a 
regular (single-task) FORTH by 
removing the SLEEP in KEY, BB, and 
CLOCK. Once all of the pieces are 
working properly, go back one 
paragraph and try again. 

A few words are in order regarding 
the new input structure used in the 
multi-tasking demonstration. It is 
based on the FORTH model and stores 
every key (including cursor keys). Both 
the back cursor and delete keys will 
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back up one space. All other cursor 
keys are entered as part of the input. 
When FORTH tries to interpret the line 
you will get errors for any cursor key. If 
you want to change the way FORTH 
reads in a line all you need to do is 
change the definition of EXPECT. This 
is how PET INPUT works in Cargil and 
Riley's FORTH. Incidently, you can 
modify PET INPUT by adding a SLEEP 
in one of the inner loops, and have 
much nicer input for the multi-tasking 
system. 

TYPES OF MULTI-TASKING 

There are many techniques that can be 
used to implement multi-tasking 
programs. These range from being 
straightforward to being involved and 
complex. Most multi-tasking 
techniques are simple in theory 
regardless of how difficult they are to 
implement. I will describe a couple of 
methods, then show how to program 
one method using FORTH. 

The most familiar method of 
performing a series of tasks is to do 
them sequentially. In FORTH this is 
done by defining a word for each task. 
Next, these words are invoked in order, 
either from the keyboard or from 
another word. In BASIC the tasks 
would be a set of subroutines and a 
main program would be used to call the 
subroutines in order. This method of 
multi-tasking is sometimes called the 
hen - and - piglets method [ 1 ] . 

The hen-and-piglets method is fine 
for simple programs. It requires no 
programming overhead. It is simple to 
understand, and it is easy to add 
another routine into the loop. The 
main problem with this method is that 
a slow task must finish before any 
other task can start. How many times 
have you waited for a long printout? 
Another problem is that it might be 
hard to determine the location for the 
RETURN required for each subroutine. 
For instance, in a terminal emulator 
program, getting characters from the 
keyboard and from the modem are 
separate tasks. Sending characters to 
the CRT and to the modem are other 
tasks. Or are they? Characters are sent 
to the modem only when received from 
the keyboard. Should the task be to get 
a character and send it? What if no 
character is present? In this case the 
task boundary becomes confused if a 
RETURN is required. 



Another type of multi-tasking is 
timesharing. For users of big 
computers, timesharing is a well 
known, and often cursed, way of life. 
Timesharing has advantages, but it is 
complex. I am prejudiced against 
timesharing because it is almost 
synonymous with multi-user systems. 
I bought a computer to have it to 
myself. On the other hand, timesharing 
offers advantages to a single user who 
can run more than one task at a time. 
An example of this is spooling of 
printer output. Spooling means writing 
the listing to a disk file (fast), and then 
copying the file to the printer (slow) 
using a separate task. This task will 
share time with all other scheduled 
tasks making it look as though several 
things are being done at the same time. 

Timesharing is complex because 
the time to switch tasks is usually 
determined by a clock that interrupts 
the CPU. The next task to run is 
determined from a list of tasks and 
their priorities. This requires some 
calculation and adds to the 
programming overhead. Fortunately, 
there are other methods of multi- 
tasking that can also have tasks run at 
what appears to be the same time. 

SLEEP 

The method I am going to implement is 
called SLEEP. SLEEP resembles the 
hen-and piglets method, but has some 
important differences, the main 
difference being that each routine is a 
closed loop. Instead of a RETURN at 
the end of the task, a call to SLEEP is 
inserted anywhere in the closed loop of 
the routine. SLEEP then changes the 
current task to the next task in a list. In 
a sense SLEEP plays the part of the 
main control loop in the hen-and- 
piglets method. 

As in the hen-and-piglets method, 
tasks are changed under simple and 
direct programmer control. There are 
no automatic switchings of tasks at 
unknown times and places as might 
happen in a timeshared system. There 
is also no need to write interrupt 
handling routines. The order of the 
tasks which will be run is determined 
by SLEEP. There is no need to calculate 
priorities at the time of a switch so 
overhead is kept to a minimum. 

Unlike the hen-and-piglets method, 
tasks do not have to be completed 
sequentially. SLEEP can multi-task a 



series of routines so that they appear to 
run simultaneously. This is possible 
because the call to sleep does not have 
to be at the end of the routine. If it is 
placed inside of a loop (say at a point 
that requires waiting for I/O), then 
only one pass through the loop will be 
completed before another task is given 
time to run. Note that the call to sleep 
can be anywhere in the loop. It can be 
at the start, the end, or anywhere in the 
middle. The programmer can chose a 
place that makes sense to him. When 
SLEEP next calls (awakens) the 
routine, the loop will continue from 
where it left off. SLEEP'S ability to run 
tasks simultaneously is similar to 
time-sharing, so spooling is one of its 
possible uses. 

One of the main advantages of 
SLEEP over hen-and-piglets is that each 
task can have its own stacks and 
variable storage. If each task has 
separate storage for data stack, it will 
not interfere with any of the the other 
tasks! In fact, two tasks may be the 
same program. It is not necessary to 
have separate copies of the programs for 
each task. Only the data storage needs 
to be separate. Of course, tasks can 
interact with each other, when desired, 
through the use of shared memory. 

IMPLEMENTATION OF SLEEP 

There are several general 
considerations that need to be kept in 
mind when implementing a SLEEP 
system. Each task should either be an 
endless loop, or have some way of 
removing itself from the list of tasks. 
There needs to be a way to call SLEEP. 
There needs to be a way to set up new 
tasks. And last, there needs to be a way 
to switch stacks, variable memory, and 
program control. 

For the sample multi-tasking 
system implemented here, each of the 
tasks will be an endless loop. This 
keeps the system easier to understand 
by removing spurious FORTH words. 
Many problems will require that the 
tasks be endless loops, so this system is 
useful as it stands. For instance, in the 
terminal emulator program mentioned 
earlier, the tasks that monitor the 
keyboard and modem continuously 
check for receipt of characters. When a 
character is received from either the 
keyboard or the modem, it is stored in 
the appropriate buffer. A third task will 
check to see if the modem buffer has 
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anything in it. If there is a character, it 
will be written to the screen. Then the 
task will loop back to the start. A 
fourth task would monitor the 
keyboard buffer and send characters to 
the modem. All four tasks would be 
endless loops. They would be written 
and debugged independently of each 
other, simplifying the programming 
effort. In each of the four tasks, a single 
call to SLEEP would be added 
somewhere in the loop to tie the 
system together. 

FORTH provides a simple way to 
call sleep. All that needs to be done is 
to compile the name SLEEP somewhere 
within the main loop of the task. This 
can be done directly or indirectly. 
Because one of the better places to put 
SLEEP is at the end of a loop, one way 
to compile SLEEP indirectly is to 
redefine LOOP, REPEAT, UNTIL, etc. 
This makes programming look 
identical to a non-SLEEP environment. 
One problem with this approach is that 
more than one SLEEP may be 
compiled. This makes a task sleep 
more times then necessary. The task 
will still run but at a slower pace and 
with more overhead for the SLEEP 
program. Even though indirect 
compilation of SLEEP can be slower, I 
generally use it because it is easier. 
Words that work in a normal FORTH 
environment need only to be reloaded 
using the new loop words to work with 
SLEEP. 

The initialization of the FORTH 
SLEEP system has several steps. Tasks 
must be added to the list of tasks to 
run. Separate stacks (and variable 
storage areas) must be set up. The 
return stacks for each of the tasks must 
be initialized. The last step is to start 
the system. In the example given on 
screen 112 these steps are done by 
running NEW.TASKS and MAIN. 
NEW.TASKS uses RESET.POINTERS 
to create separate return and data 
stacks for each task, and uses 
INIT.TASK to initialize the return 
stack. MAIN starts the multi-tasking 
system after it has been initialized. It 
also serves as the list of tasks to run. 

MAIN, the main control word, 
awakens four tasks over and over until 
the break or stop key is pressed. Each 
task prints its number and then puts 
itself to sleep. When it is reawakened, 
it executes the AGAIN to loop back. 
Thus, the output is a list of the task 
numbers printed repeatedly in order. 



In the example, the data and return 
stacks have been partitioned into five 
pieces by RESET.POINTERS. One 
piece is for each of four slave tasks and 
one is for the main task. INIT.TASK 
pushes the parameter field address 
(PFAJ of the word acting as a task onto 
the appropriate location in the return 
stack. The data stack needs no 
initialization. 

The key to changing tasks is the 
word SWITCH. SWITCH saves the 
current stack pointers, resets the stack 
pointers for the next task, and transfers 
control. The actual transfer is 
performed by the FORTH word ;S. 

In ordinary operation, ; S is 
compiled into a colon definition by ;. 
Hence, it serves as a return from 
subroutine. ;S pops an address off the 
return stack and places it in the IP 
(instruction pointer) register. ;S 
finishes with a jump to NEXT which 
loads the W register from the address in 
the IP. NEXT concludes by jumping 
indirectly via the W register to machine 
language code. (That's three levels of 
indirection in ;S.) 

The words TS1, TS2, TS3, and TS4 
are required for SWITCH to work 
properly. They push the task number 
on the data stack and, more 
importantly, set up the return stack for 
the eventual return to MAIN. The 
return stack preparation is devious. 
The : used to define TS1, etc., compiles 
the word DOCOL. DOCOL is 
FORTH's jump to subroutine. It pushes 
the current value of the IP onto the 
return stack. The ; (actually ; S) of TS1 
is never executed. After the stacks have 
been switched, the jump to ;S at the 
end of SWITCH is performed instead. 
This passes control to a new task 
|TASK1). The new task will execute 
until it reaches SLEEP. The stacks are 
switched again, and finaly the return 
address pushed to the return stack by 
TS1 is loaded into the IP. Control is 
now returned to MAIN. Hence, the 
SWITCH located in SLEEP serves as the 
; for TS1 and vice versa. Similar actions 
occur for TS2, TS3 and TS4. 

The initialization of the return 
stack can now be understood. (See 
definition of INIT.TASK.) TASK1 will 
put the PFA on the data stack. The PFA 
is then stored on the return stack, ready 
to be used by SWITCH. The array RP 
contains the initial values for each of 
the separate return stack pointers. The 
return stack is located in page one of 



memory. The stack grows toward low 
memory, and the stack pointer points 
to the next available address. (See 
Figure 1.) Thus $0101 is added to the 
value obtained from RP when the 
storage address for initializing the 
return stack is calculated. The PFA of 
the task is used because it points to the 
list of code field addresses (CFA's) of 
the words comprising the task. Hence, 
it is the address of an address that 
points to machine code. Counting the 
return stack pointer, the three levels of 
indirection needed for ,-S are now 
evident. [A more complete discussion 
of the FORTH inner interpreter is 
contained in reference 4]. 



address 


value 


return stack 
pointer 


01BF 






01BE 






01BD 


PFA HI 




01BC 


PFA L0 




01BB 




<== RP=BB 



Figure 1. Initial return stack#1 

where PFA is the parameter 
field address of the task 
that will beTASKL 

EXTENSIONS OF THE EXAMPLE 

There are several points to consider 
when using SLEEP with a more 
complex set of tasks. These points 
include determining the size of the 
stacks and the technique used to store 
the list of tasks to be switched. You 
will also need to consider what types of 
FORTH words are suitable for multi- 
tasking and where to place any variable 
torage. 

An example of where things can go 
wrong can be easily demonstrated. 
While the demonstration (screen 117] 
is operating define the following word. 

: BALL K 12 300 DO MOVE POS DRAW SLEEP 
LOOP DROP DROP ; 

This BALL looks like BB except that it 
runs for only 300 times. When you run 
it, however, it doesn't act at all the 
same. In fact, the original ball is also 
acting very strange. What went wrong? 
The problem is that both BB and BALL 
use the variables DX and DY. When 
one of them needs to change direction, 
the direction for both is changed. This 
is an example of tasks sharing data 
when they shouldn't. To fix this 
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problem either BALL should be 
redefined starting from the definition of 
DX and DY, or DX and DY should be 
stored on the stack instead of in 
variables. Since each tasks has its own 
stack, there will be no interaction. 

In the 6502 version of FORTH, the 
data stack and return stacks are limited 
in the amount of memory that they 
have available. The FORTH return 
stack uses the 6502 stack pointer. This 
limits the size of the stack to one page 
of memory. In addition, The terminal 
input buffer (TIB) uses some of the 
same space. Therefore, it is very 
important to estimate the size for each 
of the tasks to be multi-tasked and to 
partition the stack memory 
accordingly. Two bytes of the return 
stack are used for each level of nesting 
of FORTH words. In addition, each 
active DO LOOP requires another four 
bytes, two bytes for the index counter, 
and two for the counter limit. 

The data stack has even less space 
available then the return stack. FORTH 
sets aside part of the zero page of 
memory for this stack and uses the 
6502 X register as a stack pointer. Zero 
page is also used for the IP W, and other 
FORTH registers. To make matters 
worse, the PET uses half of zero page 
for the operating system. Other 
computers may also reserve zero page 
storage. 

The exact location of the data stack 
limits will vary from one vendor's 
version to another. For FULLFORTH, 
the stack is from 4 to 6E. For FORTH 
by Cargil and Riley, the stack is from 
20 to 88. SO can be used to find the start 
(high limit) of the data stack. SO is a 
user variable that is normally used 
during an ABORT to set the data stack 
pointer. The lower limit is a little 
harder to find. You will have to 
decompile the word ?STACK [2]. Most 
versions of FORTH come with a word 
to perform this function. If your 
version does not, you will have to do it 
by hand. 

If either of the stacks is not long 
enough for the multi-tasking system 
you are implementing, then you will 
have to set up separate stack storage 
areas for each task. SWITCH will need 
to be modified to copy the various 
stacks into and back out of the separate 
storage areas. If care is taken in the 
rewriting of SWITCH, only the 



currently used parts of the stack will be 
copied. This care will minimize the 
time needed to switch from one task to 
another. The advantage of stack 
swapping is that each task can have a 
full sized data and return stack. The 
disadvantage is that the overhead time 
(the time spent while not doing the 
required tasks | is larger than for 
partitioned stacks. 

Another consideration when 
implementing multi-tasking is the 
method which is used for saving the list 
of tasks to be executed. MAIN serves 
this function in the current example. 
Using the technique illustrated by 
MAIN, it is possible to change tasks at 
any time, even while multi-tasking is 
going on. However, there will always 
be the same number of active tasks. If 
you only want three tasks, NUL.TASK 
can used to replace one of the active 
tasks. The price paid will be the time 
spent switching to and from 
NUL.TASK. The following line can be 
used to replace task 2 by NUL.TASK. 

* NUL.TASK RP 2+Cg 101+ ! 

Any of the other tasks can be similarly 
replaced simply by changing the '2' to 
the proper number. 

If it is absolutely required that the 
number of tasks be variable, some 
other technique must be developed to 
switch from one task to another. 
Screen 113 is one way that it can be 
done. The variable NUM. TASK is used 
to store the current number of tasks. 
The constant MAX. TASKS is the 
maximum number of allowed tasks. A 
new word TASK.SWITCH replaces 
TS1, TS2, TS3 and TS4. SLEEP will 
still be used by each of the tasks to 
return to NEW.MAIN. NEW.MAIN 
uses a DO LOOP index to determine 
which task to execute next. When all of 
the current tasks have been called 
once, it loops back to the BEGIN. 
NUM. TASK is used to set the number 
of active tasks for this set of calls. 

This new technique allows the 
adding or subtracting of tasks, but the 
initialization and task removal 
problems are more complicated than 
with the original system. You will need 
to consider what to do when task 2 is to 
be removed while task numbers 3- and 4 
are still required. There are also 
problems associated with adding a new 
task to a list of tasks that have been in 



operation for a period of time. In this 
case only the new task's stacks should 
be initialized. If all of the stacks were 
initialized, each would 'forget' 
everything that it had already 
accomplished. In many situations that 
could be a disaster. I have not given any 
listings for solving these problems 
because the solutions depend upon 
whether stack partitioning or stack 
switching is being used. 

With either MAIN or NEW.MAIN 
there are some important 
considerations for the tasks 
themselves. First, tasks must be colon 
definitions. Tasks should either be 
endless loops (BEGIN... AGAIN), or 
provisions for termination of the task 
will be required. Each task must call 
SLEEP somewhere within the main 
loop of the task. The last consideration 
has to do with the storage of any 
variables used by the separate tasks. 

The best place to store variables is 
on the data stack. If a FORTH variable 
is used for storage, and more than one 
task uses that variable, there is a good 
possibility for confusion. This problem 
can be formally stated as: tasks used in 
a multi - tasking system have to be 
reentrant. Reentrant means that two 
versions of the same task can run at the 
same time (but not necessarily in 
synchronization). It isn't always 
possible to use the data stack, and there 
are at least two solutions for variable 
storage provided by FORTH. 

When only a small number of 
variables are required, defining USER 
variables is a good solution. A user 
variable is used just like a regular 
variable. The advantage is that USER 
variables are addressed indirectly 
through the user pointer (UP). The UP 
can be changed for each task to point to 
separate user table areas. Of course 
these areas must be set aside and 
protected. If USER variables are used 
then SWITCH should be expanded to 
include switching the UP. 6502 
FORTH has 128 bytes set aside for the 
original user table, and the first 48 
variables are pre-defined as system 
variables. These system variables will 
need to copied into each of the user 
tables during initialization. 

If your application needs more 
storage than is available in USER 
variables, separate vocabularies for 
each task might be a solution. This 
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SCR § 110 
CR . " TASK SWITCHING ROUTINES " BASE g HEX 



( STORAGE FOR TASK STACK POINTERS ) 
( ROOM FOR 5 BYTES ) 

VARIABLE RP 3 ALLOT VARIABLE SP 3 ALLOT 
VARIABLE TASK# ( CURRENT ACTIVE TASK ) 
CODE SWITCH ( INDEX... ) ( SWITCHES TO NEW TASK ) 
( GET OLD AND NEW TASK NUMBERS ) 
TASK# LDY, ,X LDA, TASK# STA, INX, INX, 

( SAVE PRESENT POINTERS ) 
TXA, SP ,Y STA, TSX, TXA, RP ,Y STA, 

( SET NEW POINTERS ) 
TASK* LDY, RP ,Y LDA, TAX, TXS, SP ,Y LDA, TAX, 

( SWITCH TO NEW TASK ) 
' ;S JMP, 



BASE g HEX 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



( SWITCH TO TASK 
( SWITCH TO TASK 
( SWITCH TO TASK 
( SWITCH TO TASK 



SCR # 111 

CR . " TASK SWITCH- 

1 : SLEEP SWITCH ; 
TS1 1 SWITCH 
TS2 2 SWITCH 
TS3 3 SWITCH 
TS4 4 SWITCH 
NUL.TASK BEGIN SLEEP AGAIN ; 

( TASK INITIALIZATION WORDS ) 
RESET. POINTERS ( INIT. POINTERS ) 

E8 1 RP + C! 8B 2 RP + C! 6B 3 RP + C! 54 4 RP + C! 

80 1 SP + C! 50 2 SP + C! 40 3 SP + C! 30 4 SP + C! 
( 60 1 SP . . . 30 . . . 20 . . . 10 IS FOR FULLFORTH+ ) 
INIT. TASK ( ADDR, INDEX ) ( INDEX IS TASK NUMBER ) 

RP + C@ 101 + SWAP OVER ! ( ADDR IS CFA OF WORD ) 

1 SLEEP CFA SWAP 2 + ! ( NEEDED FOR FIRST RUN ) 

BASE ! ;S 



SCR # 112 
CR . " MULTI-TASKS FOR FORTH 



BASE 6 DECIMAL 



1 : MAIN BEGIN ." MAIN" TS1 TS2 TS3 TS4 ?TERMINAL UNTIL ; 

2 : TASK1 BEGIN CR . » TASK 1 " SLEEP AGAIN ; 

3 : TASK2 BEGIN CR . " TASK 2 " SLEEP AGAIN ; 

4 : TASK3 BEGIN CR . " TASK 3 " SLEEP AGAIN ; 

5 : TASK4 BEGIN CR ." TASK 4 " SLEEP AGAIN ; 

6 : NEW. TASKS ( INITIALIZE STACKS AND RUN MAIN RUN LOOP ) 

7 RESET. POINTERS 

8 ' TASK1 1 INIT. TASK 

9 ' TASK2 2 INIT. TASK 

10 ' TASK3 3 INIT. TASK 

11 ' TASK4 4 INIT. TASK 

12 MAIN 

13 . " ALL DONE " 

14 ; 

15 BASE ! ( RESTORE BASE ) ;S 



SCR # 113 
CR . " NEW MAIN LOOP ROUTINE 
1 
2 
3 
4 
5 
6 

7 ; 

8 ;S 



VARIABLE NUM. TASK (CURRENT NUMBER OF ACTIVE TASKS ) 
4 CONSTANT MAX. TASK ( MAXIMUM NUMBER OF TASKS ) 
: TASK. SWITCH SWITCH ; ( REQUIRED TO SUPPLY ; ) 
: NEW. MAIN 

BEGIN NUM. TASK 81+ 1 DO I I . TASK. SWITCH LOOP 

7TERMINAL UNTIL 



allows for the use of standard variables 
and arrays. Each task, with all of its 
storage variables and arrays, will have 
to be compiled into a vocabulary. If the 
same FORTH word will be used for two 
of the tasks, then it will have to be 
loaded twice, once into each 
vocabulary. Vocabularies offer as much 
storage as you have memory. The only 
disadvantage is that the PFA's of words 
that will be tasks may be a little more 
difficult to obtain. Thus, the 
initialization process may be more 
complicated then in the example. 



CONCLUSION 

The answer to the question What axe 
the objectives of a multi - tasking 
system! will depend on who is asking 
the question. Most people would agree 
that the first two objectives are to 
switch between tasks [programs) and to 
avoid having tasks interfere with each 
other. Two other objectives, mutually 
exclusive, are to make the task 
switching transparent to the user and 
to optimize input/output operations. 
There is a set of implementation 
requirements that will have to be 
satisfied for whatever set of objectives 
is chosen. I have covered many of these 
requirements in the text, but an 
explicit listing of them might be in 
order. Multi-tasking requires a method 
of: 



1) initializing the system 

2) maintaining separate task data 
storage 

3) initiating the task switching 

4| adding new tasks 

5 J terminating tasks that have been 
completed. 

All of this must be done in a way that 
minimizes the time required. After all, 
multi-tasking is useless if the tasks 
never get a chance to run. 

The FORTH program described in 
this paper describes how to implement 
the type of multi-tasking called SLEEP. 
The key word in this program is 
SWITCH. SWITCH trades the system 
and task variables associated with the 
old task for those variables associated 
with the new task. Because of its 
importance, SWITCH has been coded 
in machine language. All of the other 
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FORTH words are high level 
definitions. Very little time penalty is 
incurred for the high level words 
because these words are used 
infrequently. The balance between 
machine language and FORTH words 
in this program was chosen to illustrate 
the point that the speed of operation of 
a program can often be improved when 
only a small piece is written in 
machine language. [Since the initial 
submission of this article, two related 
articles on multitasking have appeared. 
See references 5 and 6.] 



REFERENCES 

1) A Simple Implementation of 
Multi - tasking, by Wendell Brown, 
BYTE, Vol 6, 10, Oct. 1981, pg 176 

2) fig - FORTH 6502 Assembly Listing, 
by W.F. Ragsdale, Sept. 1980, Forth 
Interest Group, PO Box 1105, San 
Carlos, Ca. 94070 

3) fig - FORTH Installation Manual, by 
W.F. Ragsdale, Nov. 1980 

4) fig -FORTH Interpreters, by C. H. 
Ting, FORTH Dimensions Vol 6, #1, 
May/June 1984, pg 12 

5) A Simple Multitasker, by Ray 
Duncan, FORTH Dimensions, Vol 5, 
#2, July/August 1983, pg 20 

6) A Simple Multitasking 
Environment, by Martin B. Perti, 
FORTH Dimensions, Vol 5, #2, 
July/August 1983, pg 22 



3DE 



DDE 



3BE 



Ken recently completed his graduate 
degree in Physics at the University of 
New Mexico. He has been 
programming small computers for over 
15 years, and doesn't trust a computer 
that he can't carry, or software that 
doesn't come with the source code. He 
has worked in a variety of fields, 
ranging from ranching in Colorado, to 
Laser development at the Los Alamos 
National Laboratory. 



3BE 



SEE 



3BE 



SCR # 115 

CR . " TIME FUNCTION " BASE g DECIMAL 

1 : TI 1-41 Cg 256 * 142 Cg D+ DROP 256 U* 143 Cg D+ ; 

2 : SEG § § DROP DROP ; : COLON 58 HOLD ; : L0C -32728 HLD ! 

3 : EMITTIME L0C SEG COLON SEG COLON SEG ; 

4 : SMH 60 M/M0D ROT DROP 3600 M/ SWAP 60 M/ SWAP ; 

5 : TIME BASE g DECIMAL TI SMH EMITTIME BASE ! ; 

6 : CLOCK BEGIN TIME SLEEP AGAIN ; 

7 CR . " BOUNCING BALL " 

8 1 VARIABLE DX 1 VARIABLE DY 

9 : XCHECK DUP 0= OVER 38 > OR IF DX g MINUS DX ! ENDIF ; 

10 : YCHECK DUP 0= OVER 5 > OR IF DY g MINUS DY ! ENDIF ; 

11 : P0S OVER OVER 40 * + 32768 + ; : DRAW 128 TOGGLE ; 

12 : MOVE YCHECK SWAP XCHECK DX g + SWAP DY g + ; 

13 : BB 1 3 P0S DRAW 

14 BEGIN MOVE POS DRAW SLEEP AGAIN DROP DROP ; 

15 BASE ! — > 



SCR # 116 

CR . " DEFINE NEW FORTH SYSTEM INPUT STRUCTURE " BASE g HEX 

1 CODE (KEY) XSAVE STX, FFE4 JSR, XSAVE LDX, PUSH0A JMP, FORTH 

2 : CRSON 100 A7 ! ; ( TURN CURSOR ON ) 

3 : CRSOFF 1 A8 C! BEGIN AA Cg UNTIL 1 A7 C! ; ( CURSOR OFF ) 

4 : KEY CRSON BEGIN (KEY) SLEEP -DUP UNTIL CRSOFF ; 

5 : EXPECT ( TERMINAL INPUT MEMORY-2 ) 

6 OVER + OVER DO KEY DUP 9D = IF DROP 14 ENDIF DUP 14 = ( DEL? ) 

7 IF OVER I = DUP R> 2 - + > R - ELSE ( NOT DEL ) DUP 0D = 

8 IF ( RETURN ) LEAVE DROP BL ELSE DUP ENDIF 
I C! 11+ ! ENDIF EMIT LOOP DROP ; 

MQUERY TIB g 46 EXPECT IN ! ; ( LINE INPUT ) 
MQUIT ( RESTART, INTERPRET FROM TERMINAL ) 

BLK ! [COMPILE] [ BEGIN RP! CR MQUERY INTERPRET 
STATE g 0= IF . " OK " ENDIF AGAIN ; 



9 

10 
11 
12 
13 
14 BASE ! ;S 



BASE g DECIMAL 



SCR # 117 

CR . " MULTI-TASKING FORTH 

1 110 LOAD 115 LOAD 

2 6 USER S0 8 USER R0 

3 : MAIN BEGIN TS3 TS1 TS3 TS4 TS3 AGAIN ; 

4 : START ( INITIALIZE- STACKS AND START MULTI-FORTH ) 

5 RESET. POINTERS 

6 ( NEXT 2 LINES HOOK INTERPRETER INTO SYSTEM ) 

7 1 SP + Cg S0 C! 1 RP + Cg R0 ! 

8 ' MQUIT CFA ' QUIT ! 

9 ' MQUIT 1 INIT.TASK 

10 ' BB 3 INIT.TASK 

11 ' CLOCK 4 INIT.TASK 

12 MAIN ; HEX 

13 : STOP • CFA ' QUIT ! COLD ; 

14 ( STOP WILL RETURN TO REGULAR FORTH SYSTEM ) 



15 BASE ! 
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Structure Trees 
in 
FORTH 



by Michael Dougherty 
Littleton, Colorado 



Introduction 



When modifying a program, it is useful 
to know the calling structure of that 
program. That is, given a FORTH word, 
XYZ, what is every FORTH word used 
to define XYZ for all calling levels 
down to the FORTH machine language 
primitives? A graphical representation 
of the calling structure is known as a 
"structure chart" (refer to Structured 
Design by Yourdon and Constantine]. 
"Structure tree" is the text equivalent. 
In FORTH, a Structure Tree is an 
indented listing of each "colon 
definition" with all of the FORTH 
words used to define that word. 

For example, assume that the 
following FORTH words have been 
defined: 

A 1 ; 

B 2 +; 

C 3 ; 

D ABC/; 

AB A B ; 

E AB D AB ; 

A Structure Chart for word E is 
shown in Figure 1. An equivalent 
Structure Tree is shown in Figure 2. (In 
this case, the Structure Tree shows the 
calling levels of only the application 
words.) For every colon definition, all 
words comprising that word's defini- 
tion are printed in an indented fashion. 
For example, in Figure 2, word D in 
line #8 is at level 1. Lines 8 through 16 
comprise the Structure Tree of the 
word D covering levels 1 through 3. 
After the word, /, the level is back 
to 1 and the Structure Tree of D is 
completed. As can be seen, the 
Structure Tree contains redundancy 
not found in the Structure Chart. 



SCR 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 



§ 76 

( STRUCTURE TREE UTILITY 

( To load the utility: 

( 76 LOAD 

( 

( TREE Usage: 

( To list the Structure Tree 

( of word XYZ: 

( TREE XYZ 



-> 



831 BYTES ) 



SCR 

1 
2 
3 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



§ 77 

VARIABLE LEVEL 

10 VARIABLE MAX-LEVEL 



( Current level of TREE branch) 
( Maximum TREE branch level ) 



NULL ; ( Dummy def to get : cfa value) 

NULL CFA g CONSTANT COLON ( Pointer to code of : word ) 
;S CFA CONSTANT SEMICOLON ( Terminating CFA of : word ) 



0BRANCH CFA 

BRANCH CFA 

LIT 

CLIT 

(LOOP) 

(+L00P 



CFA 
CFA 
CFA 
CFA 
CFA 



CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 



'0BRANCH 

'BRANCH 

'LIT 

'CLIT 

'LOOP 

'+L0OP 



Words compiling arguments ) 



— > 



SCR # 78 

( DRAW A BAR FOR THE CURRENT LEVEL ) 



BAR 

-DUP IF 
DO 

ASCII 
LOOP 
ENDIF ; 

-> 



EMIT 



( length ) 

( If length > than ) 
( For length characters ) 
( Print a bar ) 



o 



o 



o 



o 



o 
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SCR # 79 



1 
2 

3 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



( CASE STATEMENT BY DR. C. E. EAKER, FORTH DIMENSIONS [V2,#3] ) 

: DOCASE ?COMP CSP 6 !CSP 4 ; IMMEDIATE 

: < < 4 ?PAIRS COMPILE OVER COMPILE = COMPILE 0BRANCH 
HERE , COMPILE DROP 5 ; IMMEDIATE 

: > > 5 ?PAIRS COMPILE BRANCH HERE , 
SWAP 2 [COMPILE] ENDIF 4 ; IMMEDIATE 

: ENDCASES 4 ?PAIRS COMPILE DROP 
BEGIN SPg CSP g = 0= WHILE 
2 [COMPILE] ENDIF REPEAT 
CSP ! ; IMMEDIATE 



-> 



SCR if 



1 

2 

3 

O 4 

e; 

6 

7 

O 8 

9 

10 

o n 

12 

13 

14 

© 15 



( PRINT THE ARGUMENT 
: PRINT-ARG 



DOCASE 
1 << 



<< 
<< 



2 ■ 

DO 
DUP C@ 
EMIT 
1+ 
LOOP 
ENDCASES ; 



2 + DUP Cg . 1 + 
2 + DUP g . 2 + 

DUP Cg SWAP 1+ SWAP 



( addr n addr ) 



> > ( Skip/print 1 byte ) 

> > ( Skip/print 2 bytes ) 

( Skip/print n bytes ) 
( For len of string ) 
( Get a dim str char ) 
( Print it ) 
( Next string addr ) 
>> 





SCR if 


81 










( 


MOVE PFA ON 


STACK 


TO NEXT WORD 


) 


© 


1 












2 : 


MOVE-WORD 






( addr addr+offset ) 




3 


DUP g 






( Get cfa compiled at ptr ) 




4 


DOCASE 






( Check for special move ) 


© 


5 


'0BRANCH 


<< 


2 PRINT-ARG 


> > ( Skip 2 byte offset ) 




6 


'BRANCH 


<< 


2 PRINT-ARG 


> > ( Skip 2 byte offset ) 




7 


'LIT 


<< 


2 PRINT-ARG 


> > ( Skip 2 byte value ) 


© 


8 


'CLIT 


<< 


1 PRINT-ARG 


> > ( Skip 1 byte value ) 


9 


'LOOP 


<< 


2 PRINT-ARG 


> > ( Skip 2 byte offset ) 




10 


'+LOOP 


<< 


2 PRINT-ARG 


> > ( Skip 2 byte offset ) 




11 


t rr 


<< 


3 PRINT-ARG 


> > ( Skip string till " ) 


© 


12 
13 
14 


ENDCASES ; 


SWAP 


2 + SWAP 


( Skip only the ptr itself ) 


© 


15 - 


-> 









AB 



J~ 




A 




3 

3 
3 




B 


1 

2 

+ 


1__ 

-i. 


_D 


A 




3 






1 






B 




3 








3 






+ 


2 




C 




3 






3 


2 




/ 




1__ 


__AB 






2 




A 




3 






1 


*-> 




B 




3 






^ 

x- 


3 






+ 
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Figure 2. Sample Struture Tree 
(for Structure Tree Utility) 

The Structure Tree serves as a 
"roadmap" of the FORTH application. 
As in a roadmap, the Structure Tree 
does not tell how execution travels 
through the words. Instead, the 
Structure Tree provides all the words 
which could be called during the 
execution of a specific word. When 
modifying another programmer's code 
[or your own after a sufficient amount 
of time), knowing who calls whom will 
help identify the words which should 
be changed. 

Tree 

The Structure Tree Utility, TREE, is 
defined in Listing 1 . TREE generates a 
Structure Tree from the application 
dictionary in memory. Once the TREE 
and application are LOADed, the 
Structure Tree of word XYZ is printed 
by: 

TREE XYZ 

The output may be directed to the 
printer by the Atari fig-FORTH word 
PON. Since FORTH is a highly nested 
language, a Structure Tree listing can 
be quite lengthy. (The Structure Tree of 
"." requires two and a half pages!) To 
limit the nested listing, two parameters 
are used in TREE. If a definition of a 
word is below the current value of 
FENCE, the Structure Tree will not 
continue to a lower level for that 
particular "tree branch." Further, the 

25 



maximum level of the Structure Tree 
may be limited by the variable MAX- 
LEVEL. In either case, a Structure Tree 
branch will be terminated when TREE 
encounters a word not defined as a 
colon definition (i.e., VARIABLE, 
CONSTANT, CODE, etc.). TREE may 
be aborted while listing by simply 
pressing any key other than BREAK. 

Upon execution, TREE determines 
the parameter field address (pfa) of the 
next input word with "tick" ('). The 
name is printed and DO-TREE is used 
to print the actual Structure Tree. DO- 
TREE basically executes a loop until 
there are no parameter field addresses 
on the stack (i.e., when variable LEVEL 
goes to zero). If the parameter field 
address on top of the stack does not 
point to the end of the definition (;S), 
the name of that word is printed with 
indentation determined by LEVEL. IF 
the word is a colon definition not 
defined below FENCE, and LEVEL is 
less than MAX-LEVEL, then this new 
pfa is pushed onto the stack, LEVEL is 
incremented, and the loop repeated. 
When the end of the colon definition is 
reached, the pfa is popped off the stack, 
DO-TREE moves the pfa to the next 
word, LEVEL is decremented and the 
loop again repeated. When LEVEL goes 
to zero, the last pfa has been popped 
and DO-TREE is finished. 

The only problem with the FORTH 
dictionary is that words such 
as BRANCH, LIT, and ." compile 
arguments directly into the word 
being TREEed. The word MOVE- 
WORD is designed to skip these 
compiled arguments. If your 
application has additional defining 
words which compile arguments into 
the definition, then MOVE-WORD will 
have to be extended. 

Conclusion 

When faced with modifying a FORTH 
application written by another 
programmer, the Structure Tree 
generated by TREE can be an invaluable 
tool. The Structure Tree allows one 
to determine how a word is reached 
during execution, as well as who the 
word calls. 

Reference 

Structured Design, Fundamentals of a 
Discipline of Computer Program and 
Systems Design by Edward Yourdon and 
Larrv L. Constantine. 



SCR # 82 

( PRINT THE NAME WHOSE CFA IS POINTED TO BY STACK ADDR 



1 
2 
3 

5 
6 
7 

8 

9 

10 

11 



: PRINT-NAME 
CR 

LEVEL g 3 -R 
LEVEL g 3 * BAR 

e 

2 + 

NFA 
ID. ; 

-> 



addr ) 

New line for output ) 
Print the level number 
Output a bar 3*LEVEL ) 
Get the cfa ) 
Move to the pfa ) 
Move to nfa ) 
Print name ) 



SCR # 83 

( PRINT A WORD TREE 

1 

2 

3 

5 
6 
7 



9 
10 

11 
12 
13 



DO-TREE 
1 LEVEL ! 
BEGIN 

'TERMINAL IF ABORT ENDIF 
DUP g SEMICOLON = 0= IF 
DUP PRINT-NAME 
dup e g COLON = 
LEVEL e MAX-LEVEL g < AND 
OVER g FENCE g > AND IF 
1 LEVEL +! 
DUP g 2 + 



(pfa ) 

( Init level to first ) 
( Until the stack is empty ) 
( Abort TREE if key pressed 
( If not at a ;S word ) 
( Print the word down below 
( If lower word is a : def ) 
( ...and less than MAX-LEVE 
( ...and greater than fence 
( Go down to the next level 
( Get the pfa of that level 



SCR 

1 
2 
3 

5 

6 

7 

8 

9 

10 

11 

12 



# 84 

( PRINT A WORD TREE, CONT'D ) 

ELSE 

MOVE-WORD 
ENDIF 
ELSE 

-1 LEVEL +! 
DROP 

MOVE-WORD 
ENDIF 
LEVEL g 0= UNTIL ; 



( Not a colon ) 

( Move over to next ) 

( End of a colon definition ) 

( Pop up to next level ) 

( Drop the addr pointer ) 

( Move over ) 

( Until stack is empty ) 



SCR # 85 

( USER ENTRY FOR TREE ) 



1 
2 
3 

5 

6 
7 
8 
9 ;S 



TREE 
CR 

[COMPILE] ' 
DUP NFA ID. 
DO-TREE 
CR ; 



( 



TREE word 



) 



( Get pfa of next input word ) 

( Print word to be TREEed ) 

( Print Structure Tree of pfa ) 



JUCRO 



o 



o 



o 



o 



) o 



o 



o 



o 



o 



o 



o 



o 



o 
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Text Write Edit Read Program 

(T.W.E.R.P.) 



Now reading, writing and editing textfiles 
is easy. 



Introduction 

Sequential text files provide a method 
for quickly storing and retrieving data. 
They are essential for data-based 
programs (such as telephone number 
listing, accounts receivable, etc.). Also, 
they have other useful applications. 
Programs can be shortened by storing 
variables and strings in a text file and 
loading them after the program is run 
(viz. during the first few lines). If 
formatted properly, text files may be 
used as exec files which greatly extend 
programming flexibility. For example, 
it is possible to rewrite a program while 
it is running using an exec file. 

Unfortunately, text files are hard to 
use. There is no direct command to list 
their contents. You cannot "see" them 
except indirectly. Files may contain 
extra data or spaces and it is often 
difficult to check for these conditions. 
To write an exec file it is necessary to 
create a cumbersome exec file program. 

The Textfile Write Edit Read 
Program (T.W.E.R.P.) was written to 
help write and edit text files. Using 
the program it is possible to read any 
sequential text file and to add, remove 
or edit any line within the file. Error 



by N.D. Greene 

Storrs, Connecticut 



trap routines detect and prevent user 
mistakes. 

Program Description 

A program listing is shown in Figure 1. 
The main program is only five lines 
long (lines 10-50). It calls a series 
of subprograms to perform various 
functions (e.g. load, read, save). These 
subprograms call other subroutines to 
run frequently used operations. The 
program has been written in modular 
form with the modules separated by 
remark statements. These are used 
only to make it easier to review the 
listing — they are not required to run 
the program. 

It may be helpful to briefly review 
the program, since it contains several 
routines which might be useful in your 
programs. TWERP uses a command 
rather than a self-prompting menu. The 
program does not ask questions; it 
waits for user commands. No cursor 
appears unless the user has activated 
a command which requires further 
input. Nine, single, keystroke 
mnemomic commands (e.g., < R> 
READ) are used, and they remain in 
view at all times. A keypress is 



detected with the WAIT command 
(line 1200) and its value returned as K$. 
This is examined and the program is 
routed to the appropriate subprogram 
using the short routine in lines 30-50. 
If any key other than a code key is 
pressed, the control is returned to line 
30. 

Files are loaded from either the 
keyboard or disc. As prompted by the 
program, entering K activates the 
keyboard mode. Entering three *"s 
terminates entry. Since the length of 
a text file is often unknown, it is 
difficult to read it completely without 
an out of data error and program 
termination. This problem is avoided 
by using the ONERR command (line 5) 
and then reading a disc text file until an 
error occurs. Line 1000 tests for the out 
of data error code (5). If it is present, 
the file is closed and the total number 
of lines (fields) is calculated by 
subtracting 1 from the value of the loop 
counter, I, that caused the error. 

The file in memory may be 
reviewed by the < R> READ 
command. It may be saved at anytime 
(with the option of changing its name). 
Adding or deleting lines is done by 
algorithms which insert or remove 
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lines and then renumber the file. 
Adding a line except at the end of the 
file, displaces the original lines 
upward. For example, if 
a new line number 3 is inserted, the 
original line number 3 becomes 4, the 
original line number 4 becomes 5, and 
so on. Similarly, if a line is deleted, 
all lines with greater numbers are 
displaced downward. If the < E> EDIT 
command is chosen, the current line is 
displayed together with a new, blank 
line for entering changes. This new line 
replaces the original. 

The commands for catalog, print 
and quit simply list the contents of the 
current disc, print the file in memory 
or end the program. The printout 
should work with most printers. 
However, if special commands are 
needed, these may be entered at line 
830 [printer on] and line 850 (printer 
off) . 

Error traps start at line 1000. As 
noted before, this line is used to detect 
the end of a data file. Lines, 1010, 
1030 and 1040d are a universal error 
routine which may be used in any 
program. Line 1020 tests to see if any 



records are in memory. 

The subroutines are used by the 
various subprograms extensively. All 
inputs are entered via the input 
anything subroutine*. Commas and 
other characters forbidden by the 
normal input command may be entered 
and this routine limits the length of 
lines to 255 characters. Backspacing 
erases characters - a very helpful 
feature. The wait routine mentioned 
above, waits for a keypress by checking 
address 49152 for a value greater than 
128. It then converts this value into a 
normal ACSII character and stores it is 
K$. The wait address is then reset by a 
poke to 49168. This is an excellent 
routine for single keystroke menus. 
The wink cursor is a similar 
subroutine, frequently used by Beagle 
Bros.* in their commercial programs. 
It loops through the wait and reset 
addresses while overprinting to achieve 
a blinking effect. Center title is also 
a useful programming tool. The caption 
to be centered is sent to the subroutine 
as an M$ string together with the 
desired vtab, V. Since arrow labels are 
used throughout the program, it was 



written here as a subroutine. 

Program Applications 

This program works with Apple II, II + 
and Il/e Computers**. Errors may 
occur if it is run on systems with 
DOS moved to a language card. Using 
TWERP, text file manipulation is 
airrK>st__as easy as jrograTrirning in 
BASIC. It is especially easy to create 
exec files, one of the more powerful and 
less used routines available in 
Applesoft**. TWERP also provides an 
easy way to rename text files and/or to 
transfer them to another disk. 
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Listing 1 






O 






TEXTFILE WRITE EDIT READ PROGRAM 






Q (T.W.E.R.P) 








30 


CALL 54915: GOSUB 1200: FOR I = 1 TO 9: 


N.D. GREENE 




IF K$ = MID$ ("LRSADECPQ",I,1) THEN 50 


COPYRIGHT (C) 1983 


40 


NEXT 


© _ == ===== ====== = = = = ======= = = ==== 


50 


ON I GOSUB 100,200,300,400,500,600,700,800, 


5 D$ = CHR$ (13) + CHR$ (4): DIM S$(500): 




900,30 


POKE 44452,19: POKE 44605,18: 


60 


REM 


Q 0NERR GOTO 1000 


61 


REM LOAD FILE 


6 REM 


62 


REM 


7 REM MAIN PROGRAM 


100 


HOME : VTAB 10: HTAB 5: PRINT "FILE NAME:"; 


8 REM 


110 


V = 20:M$(1) = " D DISK < K> KEYBOARD": 


O 10 HOME :V = 10: 




M$(2) = "<D> DISK < K> KEYBOARD": GOSUB 1210: 


M$ = "TEXTFILE WRITE EDIT READ PROGRAM": 




IF K$ < > "D" AND K$ < > "K" THEN 110 


G0SUB 1190 :V = 12 : M$ = "(T.W.E.R.P.;": 


120 


VTAB 20: HTAB 1: CALL - 868: 


q GOSUB 1190: PRINT : VTAB 21: 
FOR I = 1 TO 40: PRINT 




IF K$ = "K" THEN F$ = "KEYBOARD ": ST = 1: 




GOTO 170 


"=";: NEXT 


130 


VTAB 10: HTAB 16: GOSUB 1100 


20 VTAB 22: 


140 


F$ = T$: PRINT D$; "VERIFY ";F$: 


G PRINT "< C> CATALOG" TAB( 17) "< A> ADD" TAB( 32) 




PRINT D$;"0PEN";F$:: PRINT D$ ; "READ " ; F$ : 


"< P> PRINT";: 




H0ME:V = 10:M$ = "LOADING FILE.": GOSUB 1190: 


PRINT <L> LOAD" TAB( 17) "< D> DELETE" TAB( 32) 




FOR I = 1 TO 500:S$(I) = "" 


_ "<S> SAVE ";: PRINT "< R> 

READ" TAB( 17)" < E> EDIT" TAB( 32) "< Q> QUIT"; 


150 


GET K$: 




IF K$ < > CHR$ (13) THEN S$(I) = S$(I) + K$: 


:VTAB 4: POKE 35,20 




GOTO 150 


© 
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(continued) 






O 


160 


PRINT "..";: NEXT : GOTO 30 


480 


S$(I) = T$:N = N + 1: HOME :V = 10: 


O 


170 


HOME :V = 1:M$ = "ENTER => *** < = TO STOP": 
GOSUB 1190: PRINT : PRINT : 




M$ = "ADDED LINE NO: " + STR$ (NA) : 
GOSUB 1190: GOTO 30 






FOR I = ST TO 500: PRINT 


481 


REM 


o 


180 


NX = I: GOSUB 1230: GOSUB 1100:S$(I) = T$: 


482 


REM DELETE LINES 




IF S$(I) = "***" THEN N = I - 1:V = 10: 


483 


REM 






M$ = "ENTRY ENDED AT LINE NO: " + STR$ (N) : 


500 


GOSUB 1020: HOME : VTAB 10: HTAB 5: 






HOME : GOSUB 1190: 




PRINT "DELETE LINE NO: "; : GOSUB 


o 


GOTO 30 




1100:ND = VAL (T$) : IF ND < 1 OR ND > N THEN 


500 


190 


NEXT 


510 


HOME : VTAB 10: NX = ND: GOSUB 1230: 




191 


REM 




PRINT S$(ND) 


o 


192 


REM READ FILE 


520 


V = 20:M$(1) = " D DELETE < E> EXIT": 


193 


REM 




M$(2) = "<D> DELETE E EXIT": 




200 


GOSUB 1020: HOME : FOR I = 1 TO N:NX = I: 




GOSUB 1210: IF K$ = "D" THEN 550 






GOSUB 1230: PRINT S$(I): IF 


530 


IF K$ = "E" THEN 380 


o 




PEEK (37) < 17 THEN 220 


540 


GOTO 520 




210 


V = 20:M$(l) = "PRESS ANY KEY FOR MORE": 


550 


IF ND = N THEN N = N - 1: GOTO 570 






M$(2) = "PRESS ANY < KEY> FOR 


560 


FOR I = ND TO N - 1:S$(I) = S$(I + 1): 






MORE: GOSUB 1210: HOME 




NEXT :N = N - 1 


G 


22</> 


NEXT : GOTO 30 


570 


HOME :V = 10:M$ = "DELETED LINE NO: ": 




221 


REM 




GOSUB 1190: PRINT ND: GOTO 30 




222 


REM SAVE FILE 


571 


REM 


O 


223 


REM 


572 


REM EDIT LINES 


300 


GOSUB 1020: HOME : VTAB 10: HTAB 5: 


573 


REM 






PRINT "FILE NAME: ";F$ 


600 


GOSUB 1020: HOME : VTAB 10: HTAB 5: 




310 


V = 20: 

M$(l) = "< S> SAVE C CHANGE < E> EXIT": 




PRINT "EDIT LINE NO: "; : GOSUB 1100: 

NE = VAL (T$): IF NE < 1 OR NE > N THEN 600 


O 




M$(2) = " S SAVE < C> 


610 


HOME : VTAB 8: NX = NE: GOSUB 1230: 






CHANGE E EXIT": GOSUB 1210: 




PRINT S$(NE): PRINT : PRINT : GOSUB 






FOR I = 1 TO 3: IF K$ = MID$ 




1230: GOSUB 1100 


O 




("SCE",I,1) THEN 330 


620 


V = 20:M$(l) = "<A> ADD E EXIT": 




320 


NEXT 




M$(2) = "A ADD <E> EXIT": GOSUB 




331 


ON I GOTO 340,370,380,310 




1210: IF K$ = "A" THEN 650 


o 


340 


V = 10:M$ = " SAVING FILE " 


630 


IF K$ = "E" THEN 380 




350 


HOME : GOSUB 1190: PRINT D$"OPEN"F$: 


640 


GOTO 620 






PRINT D$ "DELETE "F$: PRINT 


650 


S$(NE) = T$: HOME' :V = 10: 






D$ "OPEN "F$: PRINT D$ "WRITE "F$ 




M$ = "EDITED LINE NO: " + STR$ (NE) : 


O 


360 


FOR I = 1 TO N: PRINT S$(I): NEXT : 




GOSUB 1190: GOTO 30 






PRINT "CLOSE": HOME :V = 10:M$ = 


651 


REM 






"FILE SAVED": GOSUB 1190: GOTO 30 


652 


REM CATALOG 


O 


370 


VTAB 14: HTAB 5: PRINT "NEW NAME: "; : 


653 


REM 




GOSUB 1100 :F$ = T$: GOTO 300 


700 


HOME : PRINT D$; "CATALOG": V = 20: 




380 


HOME : GOTO 30 




M$(l) = "PRESS ANY < KEY> TO CONTINUE 




381 


REM 




:M$(2) = "PRESS ANY KEY TO CONTINUE": 


O 


382 


REM ADD LINES 




GOSUB 1210: GOTO 380 




383 


REM 


704 


REM 




m 


GOSUB 1020: HOME : VTAB 10: HTAB 5: 


705 


REM PRINT 






PRINT "ADD LINE NO: ";: GOSUB 1100: 


706 


REM 


o 




NA = VAL (T$) : IF NA < 1 OR NA > N + 1 


800 


GOSUB 1020: HOME :V = 10: 






THEN 400 




M$ = "TURN PRINTER ON": GOSUB 1190 :V = 13: 




410 


IF NA = N + 1 THEN ST = N + 1: GOTO 170 




M$(l) = "<S> START E EXIT": 


o 


420 


HOME : VTAB 10: NX = NA: GOSUB 1230: 
GOSUB 1100 




M$(2) = " S START < E> EXIT": GOSUB 1210: 
IF K$ = "S" THEN 830 




430 


V = 20:M$(1) = "<A> ADD E EXIT": 


810 


IF K$ = "E" THEN 380 






M$(2) = "A ADD < E> EXIT": GOSUB 


820 


GOTO 800 


o 




1210:1 = N + 1: IF K$ = "A" THEN 460 


830 


?M 1: PRINT 




440 


IF K$ = "E" THEN 380 


840 


FOR I = 1 TO N: 




450 


GOTO 430 




PRINT CHR$ (91); I; CHR$ (93);"=> ";S$(I): NEXT^ 


460 


S$(I) = S$(I - 1):I = I - 1: 


850 


PR/C 






IF I = NA GOTO 480 


860 


V = 12:M$ = "PRINTOUT COMPLETED": HOME : 




470 


GOTO 460 




GOSUB 1190: GOTO 30 


o 








{Continued on next page) 
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MicroMotion 



MasterFORTH 

It's here — the next generation 
of MicroMotion Forth. 



Meets all provisions, extensions and experimental 
proposals of the FORTH-83 International Standard. 
Uses the host operating system file structure (APPLE 
DOS 3.3 & CP/M 2.x). 

Built-in micro-assembler with numeric local labels. 
Af ull screen editor is provided which includes 1 6 x 
64 format, can push & pop more than one line, 
user definable controls, upper/lower case key- 
board entry, A COPY utility moves screens within & 
between lines, line stack, redefinable control 
keys, and search & replace commands. 
Includes all file primitives described in Kernigan 
and Plauger's Software Tools. 

The input and output streams are fully redirectable. 

The editor, assembler and screen copy utilities are 

provided as relocatable object modules. They 

are brought into the dictionary on demand and 

may be released with a single command. 

Many key nucleus commands are vectored. Error 

handling, number parsing, keyboard translation 

and so on can be redefined as needed by user 

programs. They are automatically returned to 

their previous definitions when the program is 

forgotten. 

The string-handling package is the finest and 

most complete available. 

A listing of the nucleus is provided as part of the 

documentation 

The language implementation exactly matches 

the one described in FORTH TOOLS, by Anderson 

& Tracy. This 200 page tutorial and reference 

manual is included with MasterFORTH. 

Floating Point & HIRES options available. 

Available for APPLE ll/ll+/lte & CP/M 2.x users. 

MasterFORTH -$100.00. FP& HIRES -$40.00 each 

Publications 

• FORTH TOOLS - $20.00 

• 83 International Standard - $15.00 

• FORTH-83 Source Listing 6502, 8080. 8086 - 
$20.00 each. 




Contact: 

MicroMotion 

2077 Wilshire Blvd., Ste. 506 

Los Angeles, CA 90025 

(213) 821-4340 



(continued) 








o 


862 


REM 




863 


REM QUIT 


© 


864 


REM 


900 


TEXT : POKE 44452,22: POKE 44605,21: HOME : 
POKE 216,0: END 




904 


REM 


o 


905 


REM ERROR TRAPS 




906 


REM 




1000 


IF PEEK (222) = 5 THEN PRINT D$; "CLOSE": 






N = I - 1: HOME : VTAB 10: HTAB 12: 


o 




PRINT N;» RECORDS LOADED": GOTO 30 




1010 


HOME :V = 12:M$ = "ERROR CODE:": G0SUB 1190: 






PRINT PEEK (222): G0SUB 1040: GOTO 380 


o 


1020 


IF N = THEN HOME :V = 12: 




M$ = "NO RECORDS IN MEMORY": GOSUB 1190: 






G0SUB 1040: GOTO 380 




1030 


RETURN 


o 


1040 


FLASH :V = 10:M$ = "OPERATOR ALERT": 
GOSUB 1190: NORMAL :V = 20: 






M$(l) = "PRESS ANY < KEY> TO RESET": 


© 




M$(2) = "PRESS ANY KEY TO RESET": 




GOSUB 1210: RETURN 




1050 


REM 




1051 


REM SUBROUTINES 


o 


1052 


REM 




1054 


REM INPUT ANYTHING 




1055 


REM 




1100 


T$ = »":K = 


o 


1110 


GET K$:J = ASC (K$): IF J = 8 THEN 1150 




1120 


IF J = 13 THEN RETURN 




1130 


IF K = 255 THEN 1110 


o 


1140 


PRINT K$;:T$ = T$ + K$:K = K + 1: GOTO 1110 


1150 


IF K = THEN 1110 




1160 


PRINT K$;" ";K$;:K = K - 1: IF K = THEN 1100 




1170 


T$ = LEFT$ (T$,K): GOTO 1110 


© 


1180 


RETURN : REM 




1182 


REM 




1183 


REM CENTER TITLE 




1184 


REM 





1190 


VTAB V: HTAB 21 - LEN (M$) / 2: PRINT M$; : 
RETURN 




1192 


REM 


o 


1193 


REM WAIT FOR KEYPRESS 




1194 


REM 




1200 


WAIT 49152,128: 






K$ = CHR$ ( PEEK (49152) - 128): POKE 49168,0 


:© 




RETURN 




1201 


REM 




1202 


REM WINK CURSOR 


o 


1204 


REM 


1210 


SPEED= 220:M$ = M$(l): GOSUB 1190:M$ = M$(2) : 
GOSUB 1190 :K = PEEK (49152): 






IF K < 128 THEN 1210 


o 


1220 


K$ = CHR$ (K - 128): SPEED= 255: POKE 49168,0 
RETURN 




1221 


REM 




1222 


REM ARROW LABEL 


o 


1223 


REM 




1230 


PRINT : HTAB 1: INVERSE : PRINT NX;: NORMAL : 






PRINT "=> "; : RETURN 


o 




JWCftO 
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Graphic Print for C-64 
Part 3 



In the first two parts of this series, we 
developed a program to produce a 
graphic screen dump for most popular 
non-Commodore printers. The fast 
machine language program can be used 
to print graphic files from a number of 
popular graphic programs. In this last 
installment, we will show how to get 
full-color printouts using your existing 
dot-matrix printer. 



Introduction 

The graphic print program described in 
the last two issues will give a HiRes or 
MULTIcolor graphic dump in various 
dot patterns — the density of the dot 
patterns is proportional to the darkness 
of the actual colors used in the picture. 
Sixteen different patterns are used so 
that even two colors that look identical 
on a black and white monitor can be 
distinguished on the printout. What 
can be better than this? Color. There 
are several methods that you can use to 
get full-color hard copies of graphic 
displays created on your Commodore 
64. 

One method is to use a good quality 
35mm camera with color film and 
shoot the pictures displayed on your 
color monitor. This is probably the best 
way to create slides for presentations. 
The third party graphic programs 
available for the Commodore 64 will 
create outstanding title slides, graphs, 
bar charts, and pictures. This method 
can also be used to create larger color 
prints, but this can be expensive for a 
full-page enlargement. 

A second method is to buy a color 
printer or plotter. Several new color 
dot-matrix printers have recently been 
introduced; some use multi-color 
ribbons, some use ink-jet technology. 
You can get one for $600-$1000 + . If 
you want to create a lot of color prints, 



by Michael J. Keryan 
Tallmadge, Ohio 



Add full color to your graphic printouts 
without a color printer. 



you can probably justify one. If you 
don't yet have a printer and are 
thinking of getting a color dot-matrix 
printer for general-purpose use, make 
sure it can produce a good sharp black 
letter. Many of these color printers 
produce only 3 colors, and create black 
by mixing all 3; black letters may 
appear as smeared gray. Color plotters 
are used mainly for very high 
resolution line plots, graphs, and 
charts. They are not generally used for 
dumping color pictures, but software 
could be written to do this by drawing a 
large number of short lines. However, 
this would be extremely slow. 

A third method (and the one 
described in this article) is to use color 
ribbons with your existing dot-matrix 
printer. If you have a good quality 
graphic printer, want full-page 
printouts in color only occasionally, 
and are willing to invest some of your 
time but not much money, this method 
is for you. It works by overprinting the 
same printout several times, once for 
each ribbon color. 

Color Ribbons 

The first thing you will need is a set of 
color ribbons. A number of printer 



supply firms sell ribbons in various 
colors for most popular printers at 
about 30% higher cost than the 
standard ribbons. The ribbon cartridges 
are exactly the same as your black 
ribbons; the only difference is the color 
of the ink on the ribbon. Note that a set 
of ribbons is used — one for each 
color — multicolor ribbons are not 
used. Another way to obtain a set of 
color ribbons is to ink your own. You 
can buy new, uninked ribbons, place 
them in your old cartridges, and use 
one of the new mechanical inking 
gadgets that wind the ribbon while 
applying ink. 

How many colors will you need? 
Well that depends on the type of 
pictures you want printed and on the 
colors that you can obtain. You 
certainly do not need all 16 colors that 
the Commodore 64 can produce. Many 
of these can be created from 
combinations and varying patterns of 
other colors. If you can find them, use 
black, blue, red, and yellow. All the 
other colors can be generated from 
these. Unfortunately, I could not find a 
source for yellow ribbons (if you know 
where I can get a yellow Prowriter 
ribbon, let me know|, so I used black, 
blue, red, green, and brown. With 
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these, all colors except yellow and 
orange can be generated. 

Keep the ribbon cartridges in plastic 
bags that can be sealed to keep the ink 
from drying out. Make sure the rollers 
in the cartridges turn smoothly. 
Nothing is more frustrating than 
having a ribbon stick halfway through 
the last color of a five color printout. 

Helpful Hints 

As previously noted, the color prints 
are made by printing over the same 
page [or pages] several times, once for 
each color. A lot of things can go wrong 
while you're doing this. Here are a few 
pointers that I've picked up in the last 
several months; they may save you 
some time and grief: 

1 . Be prepared to spend an hour or more 
to get a few prints. If you are only 
printing one, make several copies — 3 
or 4 to be safe. That way if a ribbon 
jams or a page is misaligned, the others 
should still be good. Save up your 
pictures to be printed and do them all 
in one session. This will reduce the 
number of ribbon swaps. 

2. If you are using pin-feed paper, 
prepare the paper beforehand. The perfs 
tend to tear apart when moving the 
paper up and down several times to get 
all colors printed. A partially torn perf 
will catch and cause the paper to jam. 
Prior to printing, take out the paper, 
tape over the perfs with scotch tape, 
and then place it back in your printer. 
You can even form a continuous loop 
with several sheets, avoiding the need 
to backtrack the platen. 

3. Prior to printing the first color on 
each page, draw an index line in pencil, 
aligning the mark to some stationary 
point on the printer carriage or frame. 
For subsequent colors, make sure this 
alignment mark is in the same place. 

4. A misalignment of even one dot 
[1/72 inch] is quite noticeable. If a 
misalignment is obvious while printing 
a page, turn off the printer with the off- 
line or select switch on the printer, 
then try to align the page by adjusting 
the platen. Although you won't be able 
to save the current page, subsequent 
pages (see tip 1) should then end up 
perfectly aligned. 

5. Some printers have a panel that must 
be removed when changing ribbons. A 
micro switch will not allow printing 
when this panel is removed. To save 
you some time, remove this panel and 
tape down the micro switch to defeat 
it. Then leave the panel off while you 
are getting your color prints. 



Even by using all the above pre- 
cautions, I've yet to get correct align- 
ment of all colors on the first page of 4 
copies that I print. My average is about 
50% of all copies with no noticeable 
misalignment. But the results are 
rewarding. 

Color Print 

A BASIC program to create color 
printouts is given in Listing 1. This 
program is based on the program in last 
month's MICRO. All the machine 
language routines are the same. The 
only changes necessary are the printer 
matrix codes for each color. These 
codes change with each ribbon color. 
The program first loads, from diskette, 
the machine language routines " 
GDUMP + MOVE", then jumps to line 
2000. Here the type of picture is 
selected. Then in lines 2120-2250 the 
printer specific information is defined. 
Change the values for variables PT, 
NT, and SD for your printer/interface 
set-up, then save the revised program. 
The picture file is then loaded into 
memory from disk. While loading this 
file, the CRT will display the following 
menu: 

AFTER PICTURE LOADS, PRESS: 
P FOR BLACK/WHITE PRINT 

COLOR PRINT: 

B FOR BLACK RIBBON 
N FOR BROWN RIBBON 
U FOR BLUE RIBBON 
R FOR RED RIBBON 
G FOR GREEN RIBBON 

E TO EXIT 



The program works as last months 
program for black/white printouts 
when pressing P. For color prints, first 
set up the paper and the first ribbon, 
then press the key that corresponds to 
that color. After one (or more) prints of 
that particular color are finished, 
change the ribbon, set up the paper 
back to the beginning, then press the 
key for the new color. Keep this up 
until all required colors are printed. 
Then press E to exit. 

The color pattern information in 
matrix CM (see lines 2350-2360) is 
POKEd to the machine language 
routine in lines 1150-1320, then the 
printer dump is executed [line 1330). 
This loop is repeated for each color. 

Dots are printed for each combina- 
tion of screen color and ribbon color 



containing an X in the table below. A 
high density of dots is printed for dark 
colors, a lower density for lighter 
colors. 





Ribbon 


Color 






Screen 










Color 


Black Brown Red 


Green 


Blue 


Black 


X 


_ 


- 


_ 


White 


- 


- 


- 


- 


Red 


- 


X 


- 


- 


Cyan 


- 


- 


X 


X 


Purple 


- 


X 


- 


X 


Green 


- 


- 


X 


- 


Blue 


- 


- 


- 


X 


Yellow 


- 


X 


- 


- 


Orange 


- 


X X 


X 


- 


Brown 


- 


X 


- 


- 


Light Red 


- 


X 


- 


- 


Gray 1 


X 


- 


- 


- 


Gray 2 


X 


- 


- 


- 


Light Green - 


- 


X 


- 


Light Blue 


- 


- 


- 


X 


Gray 3 


X 


- 


- 


- 



If you have ribbons of different 
colors or would like to experiment with 
different shades or color codes, change 
the data in lines 4000-4050. Line 4000 
contains the pattern codes as described 
in part 1 of this series. The other DATA 
lines (one line for each ribbon) point to 
the to 15th term in line 4000. There 
are 16 entries in each line, one entry for 
each color (0 black, I white, etc.). All 
zeroes in these lines will print no dots 
for those color/ribbon combinations. 

The programs described in this 3 part 
series of articles can be obtained on 
1541 format disks for $15 (US) from 
MICRO |disk number MD-4). 

[Editors Note: The picture on page 22 of the 
July issue (part 2 of this series) is titled 
"MIDDLE EARTH" and was created by 
Wayne Schmidt of New York City, using 
Doodle by City Software and is a demo on 
the Doodle disk. Credit was inadvertantly 
omitted.] 

Michael }. Keryan has written a number of 
articles in MICRO, BYTE, and COMPUTER 
and ELECTRONICS involving machine 
language utilicy programs and hardware 
add-ons for various microcomputers, 
including OSI, TRS-80 and Commodore 64. 
His DOES - IT program to extend the 
capabilities of the C64 by implementing 
keyboard-callable machine language 
routines and supporting swapping of 
machine language programs appeared in 
recent issues of MICRO (January through 
April/May 19841. 
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Listing 1 



1000 REM BASIC PROGRAM TO SUPPORT GDUMP 
1005 REM PROVIDES COLOR PRINTOUTS 
1010 REM M.J.KERYAN 3-30-84 
1020 : 

1030 IF A=0 THEN A=l: LOAD" GDUMP+MOVE " , 8 , 1 
1040 IF A=l THEN A=2 : GOTO 2000 
1050 POKE 20491, PT: POKE 20492, SD 
1060 POKE 20493, NT: POKE 20487, NP 
1070 SYS GT 

1080 IF TY=2 OR TY=4 THEN MD=PEEK( 53270) : 
MD=3-((MD AND 16)/16): POKE 20494, MD 
1090 IF TY=3 OR TY=5 THEN POKE 20494,3 
1100 IF TY=6 THEN POKE 20494,0 
1110 GETK$:IF K$<> ""THEN 1110 
1120 GETK$:IF K$="" THEN 1120 
1130 IF K$="P" THEN SYS 20480: GOTO 1800 
1140 IF K$="E" THEN 1800 
1150 C=0: IF K$="B" THEN C=l 
1160 IF K$="N" THEN C=2 
1170 IF K$="R" THEN C=3 
1180 IF K$="G" THEN C=4 
1190 IF K$="U" THEN C=5 
1200 IF C=0 THEN 1110 

1300 FOR M=0 TO 15: MM=21182+M: NN=21198+M 
1310 POKE MM,CM(C,M): POKE NN,CM(0,M) 
1320 NEXT M 

1330 SYS 20480: GOTO 1110 
1800 : REM QUIT 
1840 POKE 53265, (PEEK(53265)AND223) 
1850 POKE 53270, ( PEEK ( 53270) AND207) 
1860 POKE 53272,21 

1870 POKE 53280,6: POKE 53281,15: POKE 646,0 
1880 PRINT"{CLEAR}": END 

2000 POKE 53280,6: POKE 53281,15: POKE 646,0 
2010 PRINT "{CLEAR, DOWN2}WHICH TYPE OF PICTURE?" 
2020 PRINT 

SIMON'S BASIC" 

ULTRABASIC-64" 

DOODLE" 

KOALAPAINTER" 

SLIDESHOW" 

SLIDESHOW - INVERTED" . ,-^» 



2030 PRINT" 
2040 PRINT" 
2050 PRINT" 
2060 PRINT" 
2070 PRINT" 
2080 PRINT" 
2090 INPUT" 



1 
2 
3 
4 
5 
6 
I,. TY 



21004tF TY< 1 OR TY> 6 THEN 2000 
2110 : 

REM PRINTER TYPE 
REM NEC/PROWRITER 
REM EPSON OR SIMILAR 



2120 PT 

2130 

2140 

2150 

2160 NP = 3: 

2170 : 



IF PT=1 THEN NP = 2 
REM REPEAT CODE 



2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2329 
2330 
2340 
2350 
2360 
2370 
2380 
2900 
3000 
3010 
3020 

3m 

3040 
3050 

3060 
3070 
3080 
3090 
3100 
3110 
4000 

4010 
4020 
4030 
4040 
4050 



NT = 0: REM INTERFACE TYPE 
REM CONNECTION = 
REM OTHERS = 1 

SD = 6: REM SECONDARY ADDRESS 
: REM FOR TRANSPARENT 

GT = 21808 + (TY-1)*3 

IF GT> 21820 THEN GT=21820 

IF TY=1 THEN 3000 



{D0WN2}N0W PUT IN DISK WITH THE PICTURE FILE." 
{DOWN}NAME OF PICTURE ";NM$ 
{DOWN}AFTER PICTURE LOADS, PRESS:" 
P FOR BLACK/WHITE PRINT" 

COLOR PRINT:" 
B FOR BLACK RIBBON" 
N FOR BROWN RIBBON" 
U FOR BLUE RIBBON" 
R FOR RED RIBBON" 
G FOR GREEN RIBBON" 



PRINT 

INPUT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT" E TO EXIT" 

DIM CM(5,15) 

FOR 1=0 TO 5: FOR J=0 TO 15 

READ MM: CM(I,J)=MM: NEXTJ: NEXTI 

IF TY=4 THEN LOAD "? "+NM$+ "* " , 8 , 1 

IF TYO 4 THEN LOAD NM$+"*",8,1 

REM CREATE A SIMON'S BASIC PROGRAM 

Q$=CHR$(34) 

PRINT "{CLEAR} 1 IF A=l THEN A=2: 

LOAD"Q$" GDUMP+MOVE "Q$", 8,1" 

PRINT "2 IF A=0 THEN A=l: GOTO 7 

PRINT "3 POKE 20491, "PT" :POKE 20492, "SD 

PRINT "4 POKE 20493, "NT" :POKE 20487, "NP": 

SYS 21808" 

PRINT"5 A=PEEK( 53270): A=(A AND 16)/16" 

PRINT "6 A=3-A: POKE 20494, A: SYS 20480: END" 

PRINT "7 REM APPEND YOUR PROGRAM HERE" 

PRINT "SAVE "Q$ "SIMON . GDUMP "Q$ " , 8 " 

POKE 631,19: FOR A=632 TO 639: POKE A, 13: NEXT A 

POKE 198,9: NEW 

DATA 0,5,32,10,64,20,1,40,159,165,90, 

130,219,135,80,255 
DATA 15,0,0,0,0,0,0,0,0,0,0,12,13,0,0,3 
DATA 0,0,0,0,0,0,0,2,4,15, 
DATA 0,0,15,0,9,0,0,0,6,0, 
DATA 0,0,0,5,0,15,0,0,2,0,0,0,0,9 
DATA 0,0,0,11,10,0,15,0,0,0,0,0,0,0,10,0 
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There are three ways to learn 6502 Assembly Language on your Apple Computer: 



Hard 



Easiest 



OTHER ASSEMBLERS 



m 



m 



•d 



i . m ««w»t»-' 



LISA v2.6 



Introducing the Easiest Way: The LISA Ed Pac" 

You can't deny that learning assembly is extremely important tor you if you want to make the most of your work. If assembly language wasn't so 
important, why are almost all of the top selling programs available for the Apple II written in assembly language? But let's face it, learning 6502 
assembly language isn't a piece of cake. At least not until now. Because now there's the LISA Education Package " from Lazerware. It'll have you up 
to speed with assembly language in a fraction of the time it would otherwise take. 

The LISA Ed Pac" begins with LISA v2.6. the favorite assembler of beginners and professionals alike. More Apple owners have learned 6502 
assembly language using LISA than all the other assemblers combined. More tutorial material is available for LISA, including books by D. Fudge, R. 

:andy Hyde's 300-page Using 6502 Assembly Language is included in the LISA Ed Pac". 

Next we threw in SPEED/ASM", a set of 6502 subroutines that make programing in assembly language as easy as BASIC. And for those who want to 
_see how it's done, the SPEED/ASM source listings are also included. We also included the LUD*1 (Lisa Utility Disk # 1 ) which includes an extended 
" editor for LISA and a LISA source file listing utility. Finally, we added MAXWELL'S Debugger'" to the LISA Ed Pac. This ultra-powerful 

debugging 6502 assembly language a breeze 
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Approximating the Square Root 

of the Sum 
of the Squares 



A fast method of calculating 
this useful function. 



by Chris Williams 
Ogden, Utah 



If I were asked to make a list of what I 
thought were the most often executed 
computer calculations in the world, . 
very near the top of that list would b^ 
the following equation: 

S=SQR((X**2.) + 5 (Y**2.)) 

This square root of the sum of the 
squares calculation is used for all kinds 
of different things. It crops up in 
electronics, in physics, in geometry, 
and in just about every other 
imaginable field. It is widely used 
because it is the equation for 
calculating the magnitude of two 
rectangular components — of 
anything. It tends to be a repetitive 
calculation, especially in the world of 
graphics and animation where 
computers are called on to perform it 
hundreds of times. 

Since this is true, a computer 
technique that will save just one 
microsecond executing the calculation 
is precious. Using such a technique in a 
repetitive application subtracts one 
microsecond from the execution time 
for each loop and you wind up finishing 
your task much faster than you 
otherwise would have. 

Bearing all that in mind, consider 
the value of the following technique; it 
saves tens or hundreds of microseconds 
for each repetition. 

Skeptical? Don't be. The method is 
incredibly simple. It is incredibly fast. 
It is, without further ado: 

/' 

SPRIME=a*X + b*Y / 

That's it. 

It's an approximation, of course, 



but jjlease, keep reading. With the 
choice of a and b the peak error 

*bf this approximation is a grand total of 
4.01 aercent. No misprint there, a 
lum error of 4.01 percent. 
'Ah, good. You're paying attention 
again. Now then, think of how much 
faster your computer will be able to do 
SPRIME = a*X + b*Y than it could 
S = SQR((X**2.) + (Y**2.). 

The optimal (from a minimal peak 
error perspective) values of a and b are 
a = 0.961 and b = 0.398, to three 
decimal places. Use those and SPRIME 
will never vary from S by more than 
4.01 percent. For those of you who 
haven't realized it yet, you probably 
will never see graphics errors that 
small. 

For the assembly language inclined 
readers, here's another tidbit of value. 
Suppose we choose values of a and b 
that are related to powers of two. The 
a*X and b*Y operations then become 
simple shifts of X or Y an amount equal 
to what the power of two a or b is. 
Doing that is thousands of times faster 
than a full-fledged floating-point 
multiply. ^ — ~i\ 

It turns ou^hat the optimal jbinary- 
related values are not exactly powers of 
two. The values are a = l. (nj? problem 
there) /and b = .375, again to three 
decimal places. Sinte-bis notan_exae-t^l 
power of-tw€ryou .haver^cT = 3cr-a- little j 
more than just a simple shift. Namely, 
shift Y three times to the right |.125^Yf 
and add the result to itseli^twice 

"\. 125 *3 = .375] . That>stfflmuch f; 
than anyiloatrng-point multip 

Ihcidently, this combination of 

coefficients yields a peak error of 6.8 
percent. 



Is there a catch? Yes, but it's a small 

one. Your X must be greater than Y. If 

Vit isn' t to ^start with, simply switch 

coefficients. ~— — -^ .,, 

A similar procedure can be done in 
3-D. In that case, we'd be approxi- 
mating R= SQR(((X**2.) + (Y**2.) + 
(Z**2.))J, and we'd do so with 
RPRIM£ = (((a*X) + (b*Y) + (c*Z))l. 
The optimal, binary-related coeffi- 
cients are a =1.0, b = .375 and c = .25. 
The peak error is 9.68 percent. This is 
allowing a maximum right shift of 
three. You could achieve superior peak 
error performance if you shifted more, 
but you'd lose significance as bits were 
shifted off the end of the byte. Three 
seems a good compromise. 

Accompanying this article is a 
program that demonstrates the validity 
of the above claims. It's written in 
Applesoft, but there's nothing 
particularly machine dependent in it, 
so you should be able to get it to run on 
any BASIC machine. 

The outputs are shown in Fig. 2. The 
S value represents the results from 
Applesoft's straightforward 

SQR((X**2.) + (Y**2.|) calculation. 
SPRIME is the approximation value. 
Both are computed for < X/Y < 1.0 
in steps of 0.1. Error is computed as a 
percentage and is ((S - SPRIME] / S) * 
100. 

I So that's it. It's a good technique. 
/Try it. 

eference 

Magnitude Approximations for 
icroprocessor Implementation by W. 
homas Adams and John Brady, IEEE 

Micro, October 1983 
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S = ((X*J + [Y 
X=10 



211 ^2 



123456789 10 

Y 



15 



12.5 



SPRIME 



Figure 1. Graphs show how 
nearly identical the 
two functions are. 



10 



t 



SPRIME = (. 961 J*X + (.398) *Y 
X = 10 



5 
Y 



10 









5 


REM ERROR VALIDATION PROGRAM 




s 


SPRIME 


ERROR (%) 


6 


REM BY C WILLIAMS, 3/84 




1 10.0498756 


10.008 


.416678098 


10 


HOME : VTAB 1 


o 


2 10.198039 


10.406 


2.03922505 


20 


PRINT " S"; : HTAB 15: PRINT 


"SPRIME"; : 


3 10.4403065 


10.804 


3.48355178 




HTAB 28: PRINT "ERROR (%) " 




4 10.7703296 


11.202 


4.00795888 


30 


POKE 34,2: VTAB 3 


o 


5 11.1803399 


11.6 


3-7535541 


40 


FOR Y = 1 TO 10. 


6 11.6619038 


11.998 


2.88200115 


50 


X = 10. 




7 12.2065556 


12.396 


1.55198879 


60 


S = ((X t 2.) + (Y t 2.)) 0.5 




8 12.8062485 


12.794 


. 0956445798 


70 


SPRIME = (0.961 * X) + (0.398 * Y) 


Q 


9 13.4536241 


13.192 


1.94463627 


80 


DF = ABS ((S - SPRIME) / S) * 100. 




10 14.1421356 


13.59 


3.90418847 


90 


PRINT Y;: HTAB 4: PRINT S;: HTAB 15: 
PRINT SPRIME;: HTAB 28: PRINT DF 


O 


Figure 2. Validity Program 


Outputs 


100 
110 


NEXT 
END 
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FLOPPY DISKS SALE *$1.19 ea. 

Economy Model or Cadillac Quality 



LOR/IN 



CEBIIfltD PtRSONAL 
COMPLIES DISK 



We have the lowest prices! iorah 



CSBliUfD PtBSONAl 
COWPUlfB DISK 



'ECONOMY DISKS 






Good quality 5'A " single sided single density with hub rings. 






Bulk Pac 100 Qty. $1.19 ea. 


Total Price 


$119.00 


10Qty. 1.39 ea. 


Total Price 


13.90 



CADILLAC QUALITY (double density) 

• Each disk certified • Free replacement lifetime warranty • Automatic dust remover 

For those who want cadillac quality we have the Loran Floppy Disk. Used by professionals because they can rely 
on Loran Disks to store important data and programs without fear of loss! Each Loran disk is 100% certified (an 
exclusive process) plus each disk carries an exclusive FREE REPLACEMENT LIFETIME WARRANTY. With Loran 
disks you can have the peace of mind without the frustration of program loss after hours spent in program 
development. 

100% CERTIFICATION TEST 

Some floppy disk manufacturers only sample test on a batch basis the disks they sell, and then claim they are 
certified. Each Loran disk is individually checked so you will never experience data or program loss during your 
lifetime! 

FREE REPLACEMENT LIFETIME WARRANTY 

We are so sure of Loran Disks that we give you a free replacement warranty against failure to perform due to faul- 
ty materials or workmanship for as long as you own your Loran disk. 

AUTOMATIC DUST REMOVER 

Just like a record needle, disk drive heads must travel hundreds of miles over disk surfaces. Unlike other floppy 
disks the Loran smooth surface finish saves disk drive head wear during the life of the disk. (A rough surface will 
grind your disk drive head like sandpaper). The lint free automatic CLEANING LINER makes sure the disk-killers 
(dust & dirt) are being constantly cleaned while the disk is being operated. PLUS the Loran Disk has the highest 
probability rate of any other disk in the industry for storing and retaining data without loss for the life of the disk. 

Loran is definitely the Cadillac disk in the world 

Just to prove it even further, we are offering these super LOW INTRODUCTORY PRICES 
List $4.99 ea. INTRODUCTORY SALE PRICE $2.99 ea. (Box of 10 only) Total price $29.90 

$3.33 ea. (3 quantity) Total price $9.99 

All LORAN disks come with hub rings and sleeves in an attractive package. 



DISK DRIVE CLEANER M9.95 



Everyone needs a disk drive doctor 
FACTS 

• 60% of all drive downtime is directly related to poorly maintained drives'* 

• Drives should be cleaned each week regardless of use. 

• Drives are sensitive to smoke, dust and all micro particles. 

• Systematic operator performed maintenance is the best way of ensuring error free use of your computer 
system. 

The Cheetah disk drive cleaner can be used with single or double sided 5%" disk drives. The Cheetah is an 
easy to use fast method of maintaining efficient floppy diskette drive operation. 

The Cheetah cleaner comes with 2 disks and is packed in a protective plastic folder to prevent contamination. 
List $29.95 / Sale $19.95 * Coupon $16.95 



Add $3.00 for shipping, handling and insurance. Illinois residents 
please add 6% tax. Add $6.00 for CANADA, PUERTO RICO. HAWAII, 
ALASKA, APO-FPO orders. Canadian orders must be in U.S. dollars 
WE DO NOT EXPORT TO OTHER COUNTRIES. 

Enclose Cashiers Check, Money Order or Personal Check. Allow 14 
days for delivery, 2 to 7 days for phone orders, 1 day express mail I 
VISA — MASTER CARD — C.O.D. 

No COD. to Canada. APO-FPO 



ENTERPRIZES - 

BOX 550, BARRINGTON. ILLINOIS 60010 
Phon* 312/382 5244 to order 



BIG FOUR 

NEW 128K —MEGA BYTE DUAL DISK DRIVE-80 COLUMN 

COMPUTER SYSTEM SALE! 

HOME • BUSINESS • WORD PROCESSING 



® 




8050 
Dual Disk Drive 

1 Mega Byte 





LOOK AT ALL YOU GET FOR ONLY 



$895. 



(D B128 COMMODORE 128K 80 COLUMN COMPUTER 

(D 8050 DUAL DISK DRIVE (over i million bytes) 

(5) 4023 100 CPS - 80 COLUMN BIDIRECTIONAL PRINTER 

(4) 12" HI RESOLUTION 80 COLUMN GREEN OR AMBER MON 

• BOX OF 10 LORAN LIFETIME GUARANTEED DISKS 

• 1100 SHEETS FANFOLD PAPER 

• ALL CABLES NEEDED FOR INTERFACING 

TOTAL LIST PRICE 



LIST PRICE 

$ 995 00 

[795 00 

499 00 

TOR 249 00 

4995 

19 95 

102 05 

$ 3717.95 




Printer replacement options (replace the 4023 with the following at these sale prices) 



* Olympia Executive Letter Quality Serial Printer 

* Comstar Hi-Speed 160 CPS 15"/' Serial-Business Printer 

* Telecommunications Deluxe Modern Package 



LIST 

% 699 00 
$779 00 
$ 199 00 



SALE 
$ 399.00 
$ 499.00 
$ 139.00 



Plus You Can Order These Business Programs At Sale Prices 



Prulessiu'ia. 80 C'.lur 

Wor<j Pro'.e'isor 
Professorial Data 6a 
ArdsSSrs Receivable 
Ao uounts Payable 



LIST 

Si 49 95 

149 95 
149 95 
149 95 



SALE 
$99 00 

99 00 
9900 
99.00 



Payroll 
Inventory 
General Ledger 
Rwanda Spread Sheet 
Program Generator 



LIST 

$14995 
149 95 
149 95 
149 95 
149 95 



SALE 
$99 00 
99 00 
99 00 
9900 
9900 



15 DAY FREE TRIAL We give you 1 5 days to try out this SUPER SYSTEM PACKAGE" If it doesn't meet your expec 
tat oris |ust send it back to us prepaid and we will refund your purchase price" 

90 DAY IMMEDIATE REPLACEMENT WARRANTY If any of the SUPER SYSTEM PACKAGE equipment or o'op/arns 
fail due to faulty workmanship or material we will replace it IMMEDIATELY at no charge" 



Write or Call For Free Catalog and Spec Sheets!! 



lAdd $50.00 for shipping and handling!! 
$100.00 for Canada, Puerto Rico, Hawaii orders. 

WE DO NOT EXPORT TO OTHER COUNTRIES 
J Enclose Cashiers Check. Money Order or Personal Check Allow 
I 14 days for delivery, 2 to 7 days for phone orders. 1 aay express 
| mail 1 Canada orders must be in U S. dollars We acceptVisa and 
(MasterCard We ship COD to U S addresses only 



"1 
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BOX 550, BARRINQTON, ILLINOIS 60010 
Prion* 312/362-5244 to order 
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©SANYO MONITOR SALE!! 




80 Columns x 24 lines 
Green text display 
Easy to read - no eye s. train 
Up front brightness control 
High resolution graphics 
Quick start - no preheating 
Regulated power supply 
Attractive metal cabinet 
UL and FCC approved 



9" Data Monitor 
12" Screen Amber or Gretm Text Display 99 

• 15 Day Free Trial - 90 Day Immediate Replacement Warranty 



\2" Hi-Resolution Amber or Green Screen Monitor $119.00 

this is a 1000 Line, 80 Column, High Resolution Monitor with crisp cfear 
text that is easy to read! A must for Word Processing! Includes special 
Software Discount coupon. 
List $249.00 SALE $119.00 

14" Hi-Resolution Color Monitor $229.00 

This 14" color monitor has the sharpest and clearest resolution of any 
color monitor we have tested! Beautiful color contrast! Also compatible 
with video recorders. Includes special Software Discount coupon. 
List $399.00 SALE $229.00 (IBM Compatable) 



• LOWEST PRICES • 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS 



Add $10.00 for ihipping handling and iniuranc*. Illinois r«iid«nt» 
pl«ai»odd 6% tax. Add 120.00 for CANADA, PUERTO RICO. HAWAII. 
ALASKA, APO-FPO Ofd«ri. Canadian ord«r» muit b* in U.S. dollarl 
WE DO NOT EXPORT TO OTHER COUNTRIES. 

Endow Coihi«ri Ch«k. Mon«y Ord«r ar P«rtonol Ch«k. Allow \4 
dayi 'or d«liv*ry -2 to 7 day* for phon« ord«ri. I day «xpr«u mail ! 
VISA _ MASTER CARD — C.O.D. 



ENTERPRIZES 



IWC I.OVC OUR CUITOMIM! 



BOX SS0, BARRINQTON, ILLINOIS 600 10 
Phon* 312/M2S244 to ord«r 
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FANTASTIC COMPUTER PRINTER SALE!! 



COM-STAR T/F 



Tractor 
Friction 
Printer 



f l i nif llll i lii l ll ll litili yi li l lili H i l ii l irimrrf 



only 



** 



COM-STAR 



• Lowest Priced, Best Quality, Tractor-Friction Printers in the U.S.A. 
Fast 80-120-160 Characters Per Seconc • 40, 46, 66, 80, 96, 1 32 Characters Per Line Spacing 
• Word Processing • Print Labels, Letters, Graphs and Tables • List Your Programs 
Print Out Data from Modem Services • "The Most Important Accessory for Your Computer" 



** DELUXE COMSTAR T/F 
80 CPS Printer - $169.00 

This COMSTAR TF (Tractor Friction) 
PRINTER is exceptionally versatre It 
prints 8'/?" x 11" standard si/e single sheet 
stationary or continuous feed computer 
paper Bi-directional, impar t clot matrix. 
80 CPS. 224 characters (Centronics 
Parallel Inter fact) 

Premium Quality 120-140 CPS 

10" COM-STAR PLUS+ 

Printer $269.00 

The COM-STAR PLUS+ gives yen. ah the 
features of the COMSTAR T/F PRINTER 
plusa 10" carriage, 120 140 CPS. 9 x9 dot 
matrix with double strike capability for 18 x 
18 dot matrix (near letter quality), high 
resolution bit image (120 x 144 dot 
matrix), underlining, back spacing, left 
and right margin settings, true lower 
decenders with super and subscripts, 
prints standard, italic, block graphics and 
special characters. It gives you print 
quality and features found en printers 
costing twice as much! 1 (Centronics 
Parallel Interface) (Better than Epson 
FX80) List $499 00 SALE $269.00 



Premium Quality 120140 CPS 
1 5 V 2 ' COM-STAR PLUS+ 
Business Printer $379.00 

Has all the Matures of (he 10" COM-STAR 
PLUS+ PRINTER plus 15b" carriage and 
more powerful electronics components to 
handle large ledger business forms! 
(Better than Epson FX 100) List $599 
SALE $379.00. 



Superior Quality 140-160 CPS 

10" COM-STAR PLUS + 
IBM Pers/Bus Printer $389.00 

Has all the features of the 10" COM-STAR 
PLUS+ PRINTER! It is especially designed 
for ali IBM personal computers 1 140 160 
CPS HIGH SPEED PRINTING 100% duty 
cycle, 2K buffer, diverse character fonts, 
special symbols and true decenders, 
vertical and horizontal tabs. 
A RED HOT IBM personal business printer 
at an unbelieveabie low price of $389.00 
plus one /ear immediate replacement 
warranty (Centronics parallel interface) 
List $699 SALE $389.00 

PARALLEL INTERFACES 



Superior Quality 160-180 CPS 

10" COM-STAR PLUS + 

Business Printer $399.00 

This SUPER HIGH SPEED COM-STAR 
PLUS+ PRINTER 160-180 CPS has a 10" 
carriage with all the COM-STAR PLUS + 
features built in 1 It is especially designed 
wit.n more powerful electronics to handle 
larger ledger business forms 1 Exclusive 
bottom feed 1 (Centronics parallel 
Interface) also compatable with all IBM 
Personal/Business Computors! 1 One year 
immediate replacement warranty 
List $699 SALE $399 
15V 2 " Printer List $799 SALE $499. 



OOlympia 



Executive Letter Quality 
DAISY WHEEL PRINTER $399.00 

This is the worlds finest daisy wheel printer 
Fantastic Letter Quality, up to 20 CPS 

bidirectional, will handle 14.4" forms 
width 1 Has a 256 character print bulfer. 
special print enhancements, built in 
tractor-feed (Centronics Parallel and 
RS232C Interface) List $699 SALE $399. 



For VIC-20 and COM-64 - $49 00 For Apple computers - $79.00 Atari 850 Interface - $79.00 For ALL IBM Computers - $89 00 



• 15 Day Free Trial -180 Day Immediate Replacement Warranty 



■ Add $14.50 for shipping, handling and insurance. WE DO NOT EXPORT I 
J TO OTHER COUNTRIES EXCEPT CANADA. , 

■ Enclose Cashiers Check, Money Order or Personal Check. Allow 14 days j 
! for delivery, 2 to 7 days for phone orders, 1 day express mail! Canada • 
I orders must be in U.S. dollars. VISA — MASTER CARD ACCEPTED. We ] 
| ship C.O.D. I 
k.— __________ _________ _._____.! 

COM-STAR PLUS+ ABCDEFGH IJKLMNOPQR8TUVWXYZ 
Print Example ABCDEFGH1 JKU1NOPOR8TUVWXYZ 1 234S67B90 



FNTFRPRI 'ES iv,£lov£oob - us,ou£bsi 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phont 312/382-5244 lo order 
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SCRIPT-64 EXECUTIVE WORD PROCESSOR 



(80 Columns in Color) 

40 or 80 columns in color or black and white; turns your computer into a Business 
Machine! 

Rated best by COMMODORE. This is the finest word processor available. Features in- 
clude line and paragraph insertion/deletion, indentation, right and left justification, 
titles, page numbering, characters per inch, etc. All features are easy to use and under- 
stand. With tabs, etc. SCRIPT-64 even includes a 250 word dictionary/spelling checker to 
make sure your spelling is correct. The dictionary is user customizable to any technical 
words you may use. Furthermore, all paragraphs can be printed in writing and everyday 
letters are a snap. To top things off, there is a 100 page manual and help screens to 
make learning how to use SCRIPT-64 a snap. This word processor is so complete we 
can't think of anything it doesn't have. When combined with the complete database you 
have a powerful mailmerge and label program that lets you customize any mailing list 
with personalized letters. List $99.95. Sale $59.00. -Coupon Price $49.00. (Disk only.) 



SCRIPT-64 20,000 WORD DICTIONARY 



Allows you to check spelling on 20,000 most often mispelled words! List $29.95. Sale 
$19.95. *Coupon Price $12.50 (Disk only.) 



SCRIPT-64 COMPLETE DATABASE 



(Plus Mail Merge and Labels) 

This powerful DATABASE is user friendly and makes any information easy to store and 
retrieve. The user defines the fields and then can add, change, delete, and search for 
any category wanted! Must be used with the SCRIPT-64 EXECUTIVE WORD PROC- 
ESSOR. When combined with the Executive Word Processor you can search out any 
category (zip codes, even hair color, etc.) and print super personalized letters! 600 
names can be sorted and formulated on each disk in any order or category! Will handle 
any size mailing list by changing or adding disks! List $69.00. Sale $39.00. *Coupon 
Price $29.00. 



• LOWEST PRICES • 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS 



WE SHIP C.O.D. HONOR VISA AND MASTER CHARGE 
ADD $3.00 SHIPPING FOR C.O.D. ADD $2.00 MORE 
SPECIAL SERVICES: 
One Day — Express Mail add $10.00 



ENTERPRIZES c MS 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 312/382-5244 to ord«r 



O Olympia 



EXECUTIVE LETTER QUALITY 
"DAISY WHEEL PRINTERS" 




Executive Letter Quality Printer 




• •- ■ 




Executive Letter Quality Printer/Typewriter 



World's Finest Computer Printer 

List Price $699 SALE $399 



• Daisywheel printer, bidirectional with special print 
enhancements. 

• Print speed up to 20 characters per second. 

• 10, 12, and 15 characters per inch. 

• 256 character print buffer. 

• 14.4" forms width. 

• Print line width: 115, 138, and 172 characters. 

• Serial RS-232-C and parallel Centronics interface 
ports built-in. 

• Built-in bidirectional forms tractor. 

• Operating status control panel. 



World's Finest 



'Combination" 

List Price $799 



Printer/Typewriter 
SALE $489 



• Superb computer printer combined with world's finest 
electronic typewriter! 

• Better than IBM selectric — used by world's largest 
corporations! 

• Two machines in one — just a flick of the switch! 

• Superb letter quality correspondence — home, office, 
word processing! 

• Extra large carriage — allows 14-1/8" paper usage! 

• Drop in cassette ribbon — express lift off correction or 
eraser up to 46 characters! 

• Precision daisy wheel printing — many type styles! 

• Pitch selector — 10, 12, 15 CPS, Automatic relocate key! 

• Automatic margin control and setting! Key in buffer! 

• Electronic reliability, built in diagnostic test! 

• Centronics parallel interface built-in 



15 Day Free Trial - 90 Day Immediate Replacement Warranty 



Add $17.50 lor shipping, handling and insurance. Illinois residents please 
add 6% tax. Add S35.00 for CANADA, PUERTO RICO. HAWAII, ALASKA, 
APA-FPO orders. Canadian orders must be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES. 

Enclose Cashiers Check. Money Order or Personal Check. Allow 14 days 
delivery, 2 to 7 days for phone orders, 1 day express mail! 

VISA - MASTERCARD - C.O.D. 



COM 64 — VIC-20 INTERFACE 
__ APPLE INTERFACE 



$59.00 
$79.00 



I 



No C.O.D. to Canada, APO-FPO 



I 
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BOX 550, BARRINGTON, ILLINOIS 60010 
Phon* 312/382-5244 to ordtr 



catenyice di*ti& 



by Ralph Tenny 
Richardson, Texas 



We're continuing with the design of an output adapter for 
the expansion port of a Radio Shack Color Computer. This 
adapter will interconnect an Epson MX-80 printer, a 
Commodore 64, a 32k Color Computer and a 64k Color 
Computer. The two 64k computers will input to the 32k 
Color Computer, which will serve as a printer buffer for 
both the other machines. The interface card will plug into 
the 32k machine and perform all the interface functions 
needed except for power sensing. A smart power box will 
sense when either computer is turned on, and power up 
the 32k machine. This machine must then self-boot and 
begin sensing when either computer sends data to be 
printed. 

Last month's column gave a set of specifications for the 
four ports needed to accomplish the interfacing. These 
ports are: 

1. Parallel input from the Commodore. This input actually 
comes from a The Connection serial-parallel converter 
currently used with the Epson/Commodore combination. 
This choice was made to insure continued compatibility 
with all Commodore software currently being used. 

2. Parallel output to the printer. 

3. Serial input from the 64k Color Computer. 

4. Serial output |unassigned). 

Figure 1 shows the schematic of the interface board. 
Ports 1 and 2 are implemented using a 6522 Versatile 
Interface Adapter, which gives two 8-bit I/O ports, two 
16-bit timers, automatic input/output handshake, and 
synchronous serial communication. Each of the major 
functions can issue an interrupt, and a separate interrupt 
input is associated with each port. 

The serial communications will be performed by a 
6850 ACIA with switch-selectable baud rates of 300, 600, 
1200 and 2400. This device is a programmable UART 
(Universal Asynchronous Receiver/Transmitter) which 
furnishes status output and input lines capable of 
managing I/O handshaking. Both receiver and transmitter 
sections can issue interrupts. 

The specifications also call for a Busy signal capability 
on both parallel ports. This is required to be sure of 
compatibility with any printer or other parallel input or 
output device which may be used to drive it. The Busy 
signals will be programmed to be compatible with Epson 
and similar printers. The output Busy signal (used on the 
parallel input port] is held in a 74LS75 4-bit latch which 
connects to the upper nibble on the CoCo data bus. The 
Busy input from the parallel output port is gated onto the 
data bus with a 74LS126 4-bit tri-state buffer. Both the 
latch and the tri-state buffer have three unassigned 
channels which could be used for any single-bit I/O 
desired. 

Baud rate generation was discussed in detail last time, 
except that the baud selection switches were omitted from 
the illustration. The corrected version and proper pin 
connections are shown in Figure 1 (Ul and U2). These two 
ICs form a programmable counter which resets itself each 
time the output pattern conforms to the bit pattern 
programmed into the switches. 



The address decoding design was mentioned last time 
also. The circuit shown and the description given last time 
was incomplete. It also seems best to use three device 
SELECT signals instead of four. The reason is that the 
original SELECT signal for the parallel ports conflicts with 
disk port address space. This design is not intended for use 
with a disk, but could be if one of the several multi-pack 
interface units was in use. So, the design shown in Figure 1 
has three SELECT signals: $FF50 for the parallel ports, 
SFF60 for the serial ports and $FF70 for the BUSY latch 
and BUSY flag input. 

In addition to the SELECT signals, certain other 
decoding must be done. The 74LS75 quad latch is not a 
bus-oriented device, so it has no SELECT input. All it has 
is an active-high GATE pin which allows the output to 
follow the input as long as GATE is high. The latch must 
be forced to capture only that data written to $FF70. 
The SELECT signal is active-low, so it must be inverted to 
properly gate the latch. Also, the Read/Write* (R/W*) 
signal must be used to ensure that only WRITE data is 
captured, that is, when R/W* is low. One section of U5 
pulses the GATE line high only when both SELECT and 
R/W* are low. 

The 74LS125 tri-state gate also has no SELECT, and 
connects the input to the bus when the four (one for each 
section) enable lines are high. Also, this must happen only 
when the CPU is trying to read the data bus. So, a section 
of U5 inverts R/W* to enable a third section of U5. When 
both SELECT and (R/W*)* are low, the BUSY signal from 
the printer is allowed onto the data bus. 

Additional decoding is necessary for both the ACIA and 
the VIA. Both have multiple registers, and REGISTER 
SELECT (RS) inputs. The 6522 VIA has four RS inputs 
which are connected to address lines AD0-AD3, so that 16 
internal registers can be selected. Almost all these 
registers can be read and written, just like normal memory 
locations. The ACIA has four registers that occupy only 
two memory addresses. Only one RS line is used (driven 
by ADO), which means that there are two Read Only 
registers and two Write Only registers. This causes extra 
programming overhead, which will be discussed when we 
have hardware ready to program! 

Certain other circuit features and possibilities need to 
be discussed. First, the interrupts generated on the ACIA 
and VIA are shown connected to the IRQ* input. There 
could be a conflict with some CoCo software, so if this 
device is used as a general I/O board on an active 
computer, this should be moved to the NMI* input. Both 
the ACIA and VIA maintain an internal record of which 
section caused an interrupt, so each needs to be polled to 
determine which device caused the interrupt. 

The VIA contains two counters which could have been 
programmed to make the proper clock frequencies for the 
ACIA. However, the normal hardware output for the 
counters are I/O lines already dedicated to parallel I/O. 
Another alternative exists. The counters will cause an 
interrupt, so the interrupt service routine could force a 
read of (for example) SFF30. The keyboard PIA in CoCo 
will respond, but so will pin 13 of U2. This decode strobe 
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Figure 1 
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could be used to toggle a flip-flop at twice the period of the 
desired baud rate clock. 

This timer-generated baud clock would only be 
practical on a dedicated machine such as I will be using. 
Also, it is advisable to put the VIA on NMI* and the ACIA 
on IRQ*. Only the timer interrupt is time critical, but the 
STROBE* line should have reasonably prompt response to 
maintain high throughput for input data. The ACIA 
buffers a second character and will assert BUSY if 
necessary. However, the data throughput on even 2400 
baud serial will not be greatly affected by a short BUSY 
hold on transmission. 

Two other loose ends: If you should desire to have full 
eight-bit parallel input and output at $FF70, it is possible 
to use an octal latch in place of U8 and an octal tri-state 
buffer in place of U7. The required decoding is slightly 
different, and will be shown in next month's column. 

The second loose end is that I promised to examine the 
bus loading in detail to decide if this interface board 
needed to be buffered from the innards of CoCo. The 
answer is yes ; on two counts. First, the power loading 
(drive current furnished by the 6809 CPU) on the address 
lines is approaching the maximum specified value. This 
loading will reduce the bus's ability to drive a capacitive 
load at normal speed. In the second place, the capacitive 
loading for the address bus is very close to, or exceeding, 
the rated maximum. Therefore, this board does need 
buffering. The calculation, circuitry and other 
considerations will be presented next time also, mieofV 
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an essential disk g memory utility 
For the commodore 64 ™ g drive 

easy to use -help -keystroke commands 

■Disk Track/Sector Editor 

•Examine and modify disk sector data 
• File Follower - memory for 151 sectors 
•Fast 1541 disk compare and error check 

•Display Memory and Disk Data 
in Hex, ASCII or Screen Code 

•Edit full page in Hex or ASCII 
■Disassemble memory and disk data 

• Search for string • Un-new Basic pgms 

• Read drive memory •Convert Hex/Dec 
•Free sector map -Use DOS wedge 

• Run ML routines -Extensive manual 

•Printer screen dump f serial bus) 
•Fast machine code! Compatible with 
many Basic and monitor programs 

DISKETTE CAN BE BACKED UP!! 
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Quantum Software 




P.O. BOX 12716, Dept. 64 




LAKE PARK, FL 33403 A 



ALL FOR 

$29.95 

US Post Paid 



To ORDER: Send check or money order, US dollars 
Florida residents add 5°lo sales tax 
COO add SZ. Call 305-840-0249 

Commodore 64 is a registered trademark of Commodore Electronics Ltd. 
PEEK A BYTE is a trademark of Quantum Software 



No. 75 ■ September 1984 



MICRO 



45 




Complete Apple 
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68000 Exception Processing 
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by Mike Rosing 

Littleton, Colorado 



The 68000 microprocessor has many 
attributes found on mini and main 
frame computers. These include 
system and user modes, levels of 
interrupts and error recovery from bad 
software. Compared to 8 bit 
microprocessors like the 6502 and 
6809, the 68000 seems incredibly 
complex. 

Fortunately, the designers of the 
68000 came up with a logical and 
straight forward method of handling all 
the complexities. The purpose of this 
article is to describe "exception 
processing" on the 68000. The 
following parts will give examples of 
how to take advantage of the 68000's 
capabilities. Part 2 will cover software 
exception processing in general; Part 3 
will cover hardware exception 
processing for the Sage II. 

Status Register 

Like other microprocessors, the 68000 
has a status register. This holds the 
carry, overflow, zero and negative bits 
which are found on all 
microprocessors. The 68000 has 
additional bits called trace, interrupt 
mask and supervisor state. The bit 
positions within the status register are 
shown in Table 1. 
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3BE 



68000 uses exception processing to handle 
software and hardware. 
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Table 1 - Status Register 


Bit 


Description 


MSB 15 


Trace Mode 


lA 


Unused 


13 


Supervisor State 


12-11 


Unused 


10-8 


Interrupt Mask 


7-5 


Unused 


U 


Extend (X bit) 


3 


Negative 


2 


Zero 


1 


Overflow 


LSB 


Carry 



Bits 0-7 are called the user byte and 
bits 8-15 are called the system byte. 
The trace mode bit is useful for tracing 
programs one instruction at a time. 
The interrupt mask determines what 
level of interrupt can be processed, 
lower levels being ignored. We will get 
into those bits later. For now the 
supervisor state is most important. 

If you have ever written a program 
on an 8 bit machine which accessed 
every byte in I/O space (like C000 to 
CFFF on the Apple 2] you will 
appreciate the separation of user state 
and supervisor state on the 68000. 
When the 68000 is in user state, it can 
not access the system byte of the status 
register. Nor can it access addresses 
which are specified to be in supervisor 
space. 

Register A7 is also affected by the 
supervisor state bit. If the bit is set A7 
points to the supervisor stack pointer. 
When the supervisor state bit is clear 
A7 points to the user stack pointer. 
Most systems keep these stacks in 
different areas of memory. 



Exceptions 

Once the 68000 goes to user state, it 
can not change the supervisor state bit. 
Unless an exception occurs, the 68000 
will stay in user state. Since exceptions 
can be forced by software, this is not a 
problem. In fact, it ensures program 
integrity since exceptions are all 
outside the users normal needs. 

Exceptions include interrupts, 
hardware errors, software errors and 
traps. Interrupts are caused by external 
devices. Hardware errors are part of 
external logic to the 68000. Software 
errors include division by zero and 
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registers out of bounds. Traps are 
similar to a software generated 
interrupt. 

All 68000 exceptions go thru four 
steps. Step one is to make a copy of the 
status register. This ensures that after 
the exception is handled the processor 
can return to its original state. The 
supervisor state bit is set putting the 
processor in supervisor mode and sets 
the stack pointer to the supervisor 
stack. 

Step two determines the vector 
number of the exception. This vector is 
a pointer to the code which the 68000 
will execute to take care of the 
exception. In some cases this number is 
placed on the bus by an external device. 
In other cases the vector number is 
generated by the 68000. 

In step three, the program counter is 
pushed on the supervisor stack 
followed by the status register copy 
made in step one. If the exception is a 
bus or address error, more information 
will be pushed on the stack during this 
step. 

Step four sets the program counter 
to the address found in step two and 
normal execution resumes. 

The address pointers used by the 
68000 in step two are located at 
addresses thru $3FF. Every four bytes 
represents a 32 bit pointer. This is 
enough room for 256 pointers. 
Multiplying the vector number by four 
gives the address of the pointer. This in 
turn has the address of the code to 
execute. 

The first 64 exception vectors have 
specific meanings. For example, vector 
number 5 is the divide by zero 
exception. Vectors 48 thru 63 are 
reserved for future use. Vectors 64 thru 
255 are user definable. 
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Table 2 — Software Exception Vectors 



Vector Number Hex Address Description 



3 

4 

5 

6 

7 

8 

9 

10 

11 

32-47 



C Address error 

10 Illegal instruction 

14 Zero divide 

18 CHK instruction 

1C TRAPV instruction 

20 Privilege violation 

24 Trace 

28 Line 1010 emulator 

2C Line 1111 emulator 

0-BC TRAP instructions 



Table 3 — Hardware Exception Vectors 



ector Number 


Hex Address 


Description 








Reset 


2 


8 


Bus error 


15 


3C 


Uninitialized interrupt 


24 


60 


Spurious interrupt 


25-31 


64-7C 


Autovector interrupts 


64-255 


100-3 FC 


User interrupts 



Software Exceptions 

Table 2 shows the vector numbers and 
locations for the software exceptions. A 
short description of each is given here. 
Actual examples will be given in Part 2 
of this article. 

Address error: Attempt was made to 
reference word or long word address on 
an odd boundary. 

Illegal instruction: Attempt was 
made to execute data. Patterns $4AFA, 
$4AFB and $4AFC are "permanently 
illegal" according to Motorola. 

Zero divide: Attempt to divide by 
zero using DIVU or DIVS instructions. 

CHK instruction: The check 
instruction is used to compare a 
register against bounds. If not in proper 
range the exception occurs. 

TRAPV instruction: Exception 
taken if overflow bit is set. 

Privilege violation: Attempt was 
made in user mode to change system 
byte of status register. 

Trace: If the trace bit is set in the 
status register, the exception is taken 
at the end of each instruction. This 
pointer should be set to a debugger or 
monitor. 

Line 1010 and Line 1111 emulator: 

68000 instructions which have $A or 
$F as the first nibble will come here. 
Motorola has a set of instructions 
defined for the 68020 such as floating 
point operations. The purpose of these 
traps is to enable emulation of the 
68020 by the 68000 for downward 
compatability. 

TRAP instructions: These can be 
compared to software interrupts of 8 bit 
microprocessors. There are 16 available 



traps on the 68000. 

Hardware Exceptions 

Table 3 shows the hardware vectors. I 
call them hardware because the support 
chips placed around the 68000 
determine how these vectors are 
generated. 

Bus; error: When pin 22 goes low on 
the 68000 this exception is processed. 
Usually a system is designed so any 
attempt to access memory which does 
not exist will pull this low. 

Uninitialized interrupt: If an MMU 
(memory management unit) is attached 
to the 68000 it can generate this vector. 

Spurious interrupt: If bus error goes 
low while an interrupt is being 
processed this exception is taken. 

Autovector interrupts: Designed for 
use with 6800 peripherals. Almost all 
systems built to date use these as the 
only interrupts. 



User interrupts: Space for interrupts 
generated using "normal" interrupt 
processing. Very few manufacturers 
use this because autovectoring is much 
simpler. 

To understand how to use the 
68000 exception processing a few 
examples are necessary. Part 2 of this 
article will discuss software exceptions 
which can be programmed on any 
68000 system. Examples of hardware 
exceptions will be given in Part 3. 
These examples will be for a specific 
computer but the main ideas are 
transportable to other machines. 



Part 2: Software Exceptions 



In the first part of this article, the 
68000 exception processing was 
described in the theoretical sense. This 



Listing 1 

* initialize trap vector 



lea 




trapzero 


aO 


move.l 


aO, 


$80 




* execute 


software 


exception 


trap 




w 






* go back 


to 


user 


mode 




move 




n 


sr 




rts 











get trap address 

put into vector location 



clear all of status register 



o 



* code executed by trap #0 instruction 



trapzero:bset #5,(sp) 
rte 



set supervisor bit in old status word 
return from exception 
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section's purpose is to create a better 
understanding of the 68000 exception 
processing activity by using concrete 
examples. 

When an exception occurs, the 
68000 copies the status register, gets 
the vector number, pushes the program 
counter and previous status register on 
the supervisor stack and jumps to the 
address stored for this vector. 

As an extremely simple example the 
code in Listing 1 is actually very 
powerful. 

The first two lines in Listing 1 
initialize vector number 32. The 
sixteen trap instructions use vectors 
32 + n where n is in the range zero to 
fifteen. These two lines of code point 
out the flexability of the 68000 
exception system. The exception 
processing code may be anywhere in 
memory. It also points out how simple 
it is to change exception vectors. 

The trap instruction is the same as a 
software interrupt instruction on a 
6502 or 6809. The program counter and 
status register are pushed onto the 
supervisor stack. The number in the 
instruction determines which vector is 
chosen. Trap instructions are always 
immediate mode. The trap number is 
added to 32, then multiplied by 4. This 
gives the address of the trap code. In 
this case address $80 contains the 
address of trapzero. 

The address stored in location $80 
is put into the program counter. 
Execution now begins as usual. In this 
case, bit five of the byte pointed to by 
the supervisor stack is set. Remember 
that this is a copy of the status register. 
When the RTE is executed, the status 
register is pulled from the stack. Bit 
five happens to be the supervisor state 
bit. When the program counter is 
pulled from the stack we return to the 
instruction following the trap #0. 

We have now gone from user mode 
to supervisor mode and the system is at 
our command. Depending on the 
operating system, this can be 
extremely dangerous. After playing 
with the system we may want to return 
to user mode. This is done by clearing 
the supervisor state bit in the status 
register |srj. 

If an attempt were made at 
executing the move #0,sr in user mode 
the privilege violation exception 
(vector number 8) would occur. In this 
case the program counter pushed on the 
stack points to the instruction in 
violation, not the instruction 



afterwards. This is slightly different 
from the trap instruction. 

Unimplemented instructions are 
similar to the privilege violation. The 
program counter pushed on the system 
stack points to the offending code. This 
is very useful as shown in the next 
example. 

Suppose we have an application 
where 64 bits are required. As an 
example we create an instruction 
which has the following format: 

Nibble Hex value Meaning 

3 F Line 1111 emulator 

2 Addition 

1 0,2, A, 6 Register 

0,2,-4,6 pair 

Nibble 3 forces exception 
processing on vector number 11 
(address $2C). Nibble 2 can be used to 



specify one of 16 instructions. For this 
example only one is used. Nibble 1 
specifies the source register pair. Since 
we want to add 64 bits, we will need 
two registers to hold the result. Zero 
means registers dO and dl. Six means 
register d6 and d7. We will take odd 
numbers to be errors. Nibble specifies 
the destination register pair. 

Listing 2 shows how an emulator 
might be written. It first saves all the 
data registers. Errors are just ignored. 
Since any registers might be used, all 
are saved into memory. The source and 
destination register pairs are converted 
to memory offsets. These memory 
contents are then added. Notice that 
the add with extend instruction is not 
as flexable as the add instruction. This 
is a minor drawback of the 68000. 

Initialization of the emulator 
requires the first line of Listing 2. This 
puts the address of the emulator into its 
appropriate vector. 



Listing 2 



* initialize line 1111 emulator and call it for testing 

move.l linellll,$2c 

move l,d2 

move 2,d<4 

. do . w $f 02-4 

rts 

* emulator code for 64 bit addition of registers 
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llnellll: 


movem.l 


d0-d7/a0, savezone save data 




move . 1 


2(sp),a0 


point to instruction 




move 


(a0),d0 


get instruction 




btst 


0,d0 


even destination? 




bne 


error 


nope 




btst 


<4,d0 


even source? 




bne 


error 


no again 




and 


7,d0 


create 




lsl 


2,d0 


destination offset 




move 


(a0),dl 


create 




and 


$70, dl 


source 




lsr 


2,dl 


offset 




lea 


savezone, a0 


point to data 




move . 1 


A(a0,dl),d2 


get lower source bits 




add.l 


d2,<4(a0,d0) 


add to lower destination bits 




move . 1 


(a0,dl),d2 


get high source bits 




move . 1 


(a0,d0),d3 


get high destination bits 




addx . 1 


d2,d3 


add with extend 




move . 1 


d3,(a0,d0) 


reset destination 


error: 


movem . 1 


savezone, d0-d7/a0 restore new data 




add.l 


2,2(sp) 


point to next instruction 




rte 




return from exception 


savezone: 


.ds.l 
end 


9 


space for 9 longwords 
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Execution is done by placing a word 
in the middle of normal code. Most 
assemblers require a construct shown 
in Listing 2 as .dew $F024. 

When normal execution gets to this 
instruction exception processing takes 
over. Since the high nibble is $F = 
1111 (base 2), vector number eleven is 
executed. This is just our emulator. 
Notice that we added 2 bytes to the 
program counter before returning from 
the exception. This prevents an infinite 
loop. 

The trace exception is also a 
software interrupt. Like the trap 
instruction the program counter 
pushed on the stack points to the next 
instruction to be executed. This 
happens because the trace exception 
processing always occurs between 
instructions. To make effective use of 
the trace exception, one must know the 
I/O port addresses for efficient 
debugging. 

Unlike the previous exceptions, the 
address error can occur anytime an 
effective address for a word or longword 
is on an odd byte. This is usually in the 
middle of an instruction execution. 
Because of this, more information is 
pushed on the supervisor stack during 
the third step of exception processing. 
This includes the instruction register 
which holds the first word of the 
offending instruction. The program 
counter is usually two to four bytes 
past this point. After the instruction 
register comes the effective address 
which is going to be odd. This is a 
longword. The 1st word pushed on the 
stack includes the function code, a 
read/write bit and an instruction bit. 

The function code corresponds to 
the 3 bits FCO, FC1 and FC2 on the 
68000. These determine user or 
supervisor mode and program or data 
space. The read/write bit tells whether 
the access was during a read or write. 
The instruction bit tells if the error 
occured on an instruction. An address 
error on an instruction will occur on a 
line of code such as JMP (AO) where 
AO is odd. The jump instruction itself 
will be executed, but an address error 
will occur as soon as AO is transferred 
to the program counter. 

To fully utilize these error 
exceptions, one has to send 
information to the programmer. This 
usually involves input and output. The 
final section of this article gives 
examples of hardware interrupts for 
I/O on a specific machine. 



Part 3: Hardware Exceptions Bus Error Processing 



The previous two parts of this article 
have described 68000 exception 
processing which was valid for any 
system. This final portion is specific to 
the Sage 2 because hardware exceptions 
are caused by the physical wiring 
connected to the 68000. 

Hardware exceptions include reset, 
interrupts and bus error. Each of these 
are pfeysically wired to the 68000. On 
the. Sage, the reset is performed by 
power on, or by pressing the reset 
buttorTon the back of the machine. 

The bus error line on the Sage will 
be activated if the address strobe line is 
not released within two microseconds. 
Even the. slowest EPROM's are faster 
than this. Usually one gets this error 
when attempting to access an address 
such as $4D696B65. 

Interrupts are generated whenever 
any of the interrupt lines go low. All 
lines low indicates a level 7 interrupt. 
All lines high indicates no interrupt. 
The Sage is built with an LS148 priority 
encoder attached to the interrupt lines. 
This ensures that the 68000 sees only 
the highest level interrupt yet to be 
processed. 



Reset Processing 

During reset the 68000 looks for a 
system stack pointer at vector number 
0. This is located at address 000000. It 
then reads the program counter from 
vector number 1 at address 000004. On 
the Sage these addresses are located in 
RAM. How does the Sage turn on at a 
known address? 

When the reset line goes low a latch 
is cleared which relocates the monitor 
EPROMs to address 000000. The first 
longword in the EPROM is $400 which 
is the startup system stack. The next 
longword is SFE003C which becomes 
the program counter. 

On the Sage, addressing the 
EPROMs at addresses in the $FE0000 
range relocates the EPROMs to 
$FE0000. Thus, as soon as the program 
counter address hits the bus, the 
EPROMs are where they need to be and 
the 68000 is initialized. 

The only way to change the reset 
system on the Sage is to burn new 
EPROMs. For most users this should be 
unnecessary. 



The bus error exception is exactly 
the same as the address error described 
in part two previously. It is processed 
whenever the bus error line (pin 22] 
goes low. To appreciate why this is 
useful in two microseconds on the 
Sage, remember that the 68000 is an 
asychronous device. DTACK has to go 
low before the address lines are 
released. The processor enters wait 
states until DTACK is returned. It is 
perfectly happy to wait forever. 

To avoid external circuitry which 
computes whether an address is valid it 
is much simpler to put on a timer. The 
timer is run at the start of each bus 
access and off when no bus access takes 
place. As long as the timer never runs 
out no bus error can occur. If no wait 
states are ever used, a complete bus 
access will require 250 nanoseconds 
and a complete instruction will require 
500 nanoseconds (or more). A single 
wait state is 125 nanoseconds. Thus 16 
wait states will go by before a bus error 
occurs. 

This discussion is specific to the 
Sage only. Other systems will have 
different methods of generating bus 
errors. The access address is pushed on 
the stack in any case, and this is 
important to display for debugging 
purposes. 

Interrupt Processing 

According to the 68000 manual, 
normal interrupt processing requires 
the interrupting device to put its vector 
number on the lower data bus. This 
number should be greater than 64. This 
method allows for a total of 192 
interrupts of any desired level. The 
implementation is not so easy in 
hardware. I don't know of any 68000 
based machines which use this 
capability. 

The lack of "normal" interrupts is 
due to the 68000 having autovector 
interrupts. By pulling the VPA line low 
(pin 21] during an interrupt 
acknowledge the 68000 looks at the 
interrupt level input lines (pins 23-25). 
This value is added to 24 to get the 
exception vector. 

Level 7 is used for RAM parity 
errors. Levels 4, 5 and 6 are used for the 
IEEE port, the terminal input port and 
the floppy disk controller respectively. 
The level one interrupts are processed 
thru an Intel priority interrupt 
controller for eight interrupts. All 
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interrupts are autovectored and no 
provision was made far "normal" 
interrupt processing as defined by 
Motorola. 

The eight level one interrupts 
include two clock timers, the terminal 
receive ready, the terminal and remote 
transmit ready, a ring detect, printer 
acknowledge and software generatable 
inputs. In order to give an example of 
interrupt processing on the 68000, we 
will mask all but the terminal USART 
generated interrupts. 

The terminal interface chip is an 
Intel 8251 A. This chip generates an 
interrupt whenever a character is 
received, as well as when it is ready to 
transmit a character. 

The code shown in Listing 3 is very 
simple and should not be used for any 
real application because it does not 
save registers. It is a good example to 
follow though. The first line of code 
puts the processor into supervisor 
mode |see page 48, Listing 1|. The 
mask on the next line prevents all 
interrupts except the USART transmit 
ready from entering the 8259. Next the 
autovector addresses are set to the 
interrupt codes. Registers are used 
directly for this example and are 
initialized. The 5 turns the USART on 
for transmission and reception of data. 
Finally, the stop instruction moves 
$2000 into the status register and halts 
processing. 

When an interrupt occurs the 
processor executes code starting at the 
interrupt in question. If the USART is 
ready to transmit the termout interrupt 
will execute. If a character comes in 
from the keyboard, the termin code 
will execute. When the processor 
returns from the interrupts the code 
following the stop is executed. 

To follow this, suppose the 
processor is halted. We press a key on 
the terminal which is transmitted to 
the USART. The USART causes 
interrupt level 5 and the 68000 
autovectors to termin. The character is 
pulled from the USART, clearing the 
interrupt. We store it into the input 
buffer and bump the input buffer 
pointer. After returning from the 
interrupt, the 68000 checks to see if a 
character came in. 

A character was received so DO is 
not equal to Dl. The character is 
moved to the output buffer and 
pointers are incremented. The 
transmitter is enabled and the 
processor halts again. 

Since the transmitter is empty, it 



generates a level one interrupt via the 
8259. The level one interrupt 
autovectors to termout. Since we set it 
up for only one possibility, the 8259 
interrupt level is ignored. However, in 
a real system we would then have to 
pick the correct place to go to handle 
the interrupt. 

The character is moved from the 
output buffer to the transmitter of the 
USART. The get pointer is bumped and 
the interrupt is ended. 

At this point DO equals Dl so we 
return to the stop instruction. The 
USART generates a transmitter empty 
interrupt so we again vector to the 
termout routine. At this point D2 



equals D3 meaning the buffer is empty 
(or overflowed!). The endout point 
turns the transmitter enable off. Return 
from interrupt again finds DO and Dl 
equal putting us at the stop instruction. 

Even at 19.2K baud the trans- 
mission of characters is 100 times 
slower than the processor. This is only 
an example to show how interrupts can 
be used to run I/O in background while 
68000 processes data in foreground. 

To summarize, remember that 
exceptions all have vectors which point 
to the code which handles them. Any 
exception vector can be changed on any 
computer to suit the needs of your 
program. 



Listing 3 



* Assume baud rates set up and 8259 initialized 
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trap #0 

move.b #$11011111, $FFC043 



transmit 



fer 



wait: 



put 



move.l #termout,$64 

move.l #termin,$74 

lea inbufr,a0 

lea outbufr,al 

moveq #0,d0 

moveq #0 , dl 

moveq #0 , d2 

moveq #0 , d3 

move.b #5,#FFC073 

stop #$2000 

cmp.b d0,dl 

beq wait 

move.b (a0,d0) , (al,d3) 

addi.b #l,d0 

addi.b #l,d3 

bra on 



go to supervisor mode 
mask off all interrupts 

except terminal transmit 

( 
autovector 1 
autovector 5 

pointer to input buffer 
pointer to output buffer 

set 

up < 

get and 
put pointers 
enable transmission and 

reception ( 

wait for interrupt 

char came in? 

no, went out 

move from input to output 

bump input get pointer 
bump output put pointer @ 
enable transmission 



* terminal output interrupt handler 



termout: 



endout : 



move.b 
move . b 
move . b 
cmp . b 
beq 
move . b 
a.ddi.b 
rte 

move . b 
rte 



#$C,$FFC0'il 

$FFC04l,d4 

#$20,$FFC04l 

d2,d3 

endout 

(al,d2),$FFC071 

#l,d2 

#4,$FFC073 



* terminal input interrupt handler 

termin: move.b $FFC0721,d4 

move.b d4,(a0,dl) 

addi.b #l,dl 

cmp.b d0,dl 

tne end in 

move.b #0,$FFC073 
endin: rte 



set up 8259 for read 

get interrupt level 
clear interrupt 

hit end of 

data to transmit? 

send out char 
bump get pointer 

end of interrupt 
disable transmission 



get input char 

put into input buffer 
bump put pointer 

hit get pointer? 

yes, problems 
so disable receive 

end of interrupt 



© 



© 
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Transferring dBase II Files 

For Use With 

Wordstar/Mailmerge 

O 



by Robert R. Carroll 

Woodland Hills, California 



O 



Alter your dBase II files and use them 
to produce personalized letter forms. 



o 



When using the popular programs 
dBASE II and Wordstar/Mailmerge in 
business, an opportunity often presents 
itself where the two can be used 
together to produce personalized form 
letters. On the surface, it would 
seem that this should be no problem; 
however, there exists certain 
peculiarities in each program that 
forces a bit of thought as to how to 
manipulate dBASE II files so that 
Mailmerge sees just what it needs to 
perform correctly with all types of 
data. If you're not careful, you will 
undoubtedly find form letters loaded 
with unwanted spaces due to the 
trailing blanks leftover from the fixed 
field lengths of your data from dBASE 
II's .DBF (data] files. Or worse, 
embedded commas in your data will 
confuse Mailmerge to the point where 
it won't track your data correctly. In 
either case your letters will look far 
from personal. This article will explore 
a simple yet effective method for 
flawlessly transferring dBASE II data 
files for this use. 



Of the many books and articles 
written on these programs, none has 
come up with a simple, easy-to-use 
method of transferring the data files. 
Typical schemes require writing an 
external BASIC program or using a 
word processor in a lengthy, hard- 
to-remember procedure. dBASE II 
provides all the functions necessary 
to make the transfer complete without 
resorting to difficult external measures. 
Besides, many users of these programs 
don't have the time, inclination or 
programming knowledge to use them. 

Now, let's look at a sample dBASE 
II .DBF file called DATA.DBF which 
contains mailing list data. Using 
dBASE II's LIST STRUCTURE 
command we see the following: 



. USE DATA 

. LIST STRUCTURE 
STRUCTURE FOR FILE: A: DATA. DBF 
NUMBER OF RECORDS: 00003 
DATE OF LAST UPDATE: 03/15/84 
PRIMARY USE DATABASE 



FLD 


NAME 


TYPE 


WIDTH DEC 


001 


MRMRS 


C 


004 


002 


FIRSTNAME 


c 


015 


003 


LASTNAME 


c 


015 


004 


COMPANY 


c 


020 


005 


STREET 


c 


020 


006 


CITY 


c 


015 


007 


STATE 


c 


004 


008 


ZIP 


c 


006 


** TOTAL ** 




00098 



We can see that each field has a 
specific width determined by the user 
at the time the database was created. 
dBASE II will reserve this width for 
the data when it is stored on disc, 
whether the actual data fills up the 
entire width or not. For example, a 
LASTNAME of Deltawashington fills 
up our field width of 15 characters 
quite nicely. However, Stein leaves us 
with 10 trailing blanks which will be 
carried right into our form letter if we 
don't get rid of them somehow. Let's 
enter some sample data to clarify the 
example. 
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Rec § 
00001 
00002 



MRMRS FIRSTNAME 
Mr. John H. 
Mrs. Joanne T. 
Ms. Toni J. 



STREET CITY 

24 Lake Avenue Chicago 

970 Tulips Street New York 

11678 Riverside Dr. Burbank 



LASTNAME COMPANY 

Stein Tate and Sons 

Houseman Melt, Inc. 

Deltawashington Lewis, Jones, and Co. 

STATE ZIP 

IL 60606 

NY 10019 

CA 91356 



Now suppose we want to use this data to create a personalized form letter 
called FORMLTR written using Wordstar/Mailmerge. The letter might read as 
follows: 



. . FORMLTR 

.op (to omit page number in printout) 

.df DATATEXT.TXT (datafile created from dBASE II file DATA. DBF) 

.rv MRMRS, FIRSTNAME, LASTNAME, COMPANY, STREET, CITY, STATE, ZIP 

(tells Mailmerge to read values in specific order) 

Dear &MRMRS8c &LASTNAME&: 

We regret to inform you that we cannot use &C0MPANY& in this 
year's exhibition. Thank you for your interest. 

Sincerely, 

Clyde T. Newshandler 

.pa(to begin new page) 



If we don't remove the trailing blanks we would get something like: 



Dear Mr. Stein : 

We regret to inform you that we cannot use Tate and Sons 
this year's exhibition. Thank you for your interest. 



The blanks in the text of the letter automatically tell the reader a computer 
is talking at him. Also, Mailmerge must see its data separated by commas and 
if a piece of data has a comma embedded in it, the entire piece must be enclosed 
in quotes. For example, in our Rec ? 00002, the COMPANY field contains 
Melt, Inc. Mailmerge must see "Melt, Inc." so that it doesn't confuse the 
embedded comma with a field separator and think that "Inc." is the next data 
field. In this unfortunate occurrence, the tracking of all the data would be one 
field off for the rest of the letters generated. Thus we might get: 



Dear 10019 Ms. : 

We regret to inform you that we cannot use Toni J. in this 



u £h A Pea 



Tnl 



PERIPHERAL PRODUCTS 



DOT MATRIX PRINTERS 



80 CPS $239 

100 CPS $259 

120 CPS $299 

150 CPS $349 




WordStar 
Pro Pack 



.$269 
.$369 



Novation 




APPLE CAT II 

300 Baud, Auto Answer, 
Auto Dial, FREE Software 



$199 



NOVATION 

1200 BAUD SPECIAL $529 
1200 BAUD UPGRADE $339 



DISK DRIVES 

Concorde CHI $189 

Rana Elite I $229 

Rana Elite II $369 

Rana Elite III $475 

TAX/SUM 

MODEL 

1 15 12" Amber Hi-Res $129 

210 12" Composite-RGB $289 

400 12" RGB Med-Res $299 

410 12" RGB Hi-Res $349 

415 12" RGB Super Hi-Res $399 






7% V12629 N. Tatum Blvd. 
W - ^ Suite 212 

Phoenix, AZ 85032 



Call: 602-957-3619 



$2 PHONE REBATE 
WITH ANY ORDER 



SHIPPING CHARGES 

0-100 $ 5 

101-200 S 8 

201-300 $10 

301- up £15 

All prices are for cash or check— 

Visa/Mastercard add 3% 
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Not very professional. Luckily, Mailmerge will also accept an overkill 
method of data separation: enclosing all data in quotes and separating them 
with commas. This seems like it would be more work, but actually it is the 
uniformity of this approach that makes this method work. And dBASE II does 
all the work for us. 

Now let's try the conventional method of creating text files from dBASE II 
database files. While in dBASE II use the command: 

. USE DATA 

. COPY TO datatext DELIMITED WITH" 

If we now examine the file DATATEXT.TXT (the .TXT extension is 
automatically assigned by dBASE II) using Wordstar or a suitable command 
like CP/M's TYPE, we'll see that all data is enclosed in quotes but with all the 
trailing blacks carried right along like this: 



"Mr. "/'John H. "/'Stein 

"24 Lake Avenue "/'Chicago 



", "Tate and Sons ' 

","IL ","60606 "/'Mrs.' 



Well, that's no good. Let's try the other way of creating text files from dBASE II 

files: 

. USE DATA 

. COPY TO datatext DELIMITED WITH, 



Using this method, all data will be separated by commas and the trailing blanks 
will be trimmed from each piece of data like this: 

Mr., John H. , Stein, Tate and Sons, 24 Lake Avenue, Chicago, IL. 60606, 
Mrs., Joanne T. , Houseman, Melt, Inc. ,970 Tulips Street, New York, NY, 
10019, Ms. ,Toni J. ,Deltawashington, Lewis, Jones, and Co., 11678 
Riverside Dr. ,Burbank,CA, 91356 



Unfortunately, embedded commas (like in Melt, Inc.) will cause incorrect 
data tracking as we discussed earlier. Obviously this won't work with all data 
types either. 

Fortunately, there is a trickier way to create text files with dBASE II which 
allows the full power of the program to be running at the same time. If the 
command SET ALTERNATE TO 
datatext.txt is used followed by SET 
ALTERNATE ON, everything shown 
on the screen will be sent to the file 
datatext.txt. So, we can write a short 
dBASE II program stripping away the 
trailing blainks from the data using 
the TRIM funciton and insert the 
proper punctuation so Mailmerge gets 
just what it wants. And, as an added 
bonus, since the full power of dBASE 
II is available, we can "filter" the 
usable data for our form letters much 
more efficiently than we could by 
simply using the COPY TO command 
line. 

For our example, the following 
program could be written in dBASE II: 



USE DATA 

SET TALK OFF 

SET RAW ON 

SET ALTERNATE TO datatext.txt 

SET ALTERNATE ON 

DO WHILE .NOT. EOF 
"' , TRIM(MRMRS) 
'" , TRIM(FIRSTNAME) 
"' , TRIM(LASTNAME) 
"' , TRIM(COMPANY) 
"' , TRIM (STREET) 
'" , TRIM (CITY) 
'"' , TRIM(STATE) 
' "' , TRIM(ZIP) 

SKIP 

ENDDO 

SET ALTEFlNATE OFF 



The SET TALK OFF command 
stops dBASE II from sending comments 
to the screen as it makes calculations 
or skips to the next record. SET RAW 
ON eliminates single spaces between 
fields which when defaulted to OFF is 
the normal way dBASE II will LIST or 
DISPLAY data. Keep in mind that 
everything sent to the screen will 
appear in the file datatext.txt. 

Using the above dBASE II program 
on our sample file data.dbf will yield 
the following result automatically 
given the filename datatext.txt by 
dBASE II: 



"Mr." 

"John H.", 

"Stein", 

"Tate and Sons", 

"24 Lake Avenue", 

"Chicago", 

"IL", 

"60606", 

"Mrs.", 

"Joanne T. ", 

"Houseman", 

"Melt, Inc.", 

"970 Tulips Street", 

"New York", 

"NY", 

"10019", 

"Ms.", 

"Toni J.", 

"Deltawashington " , 

"Lewis, Jones and Co' 1 

"11678 Riverside Dr. '' 

"Burbank", 

"CA", 

"91356", 



We can see that this format adheres 
to all of Mailmerge's rules. Each piece 
of data is separated by commas, trailing 
blanks trimmed and enclosed in quotes 
to protect embedded commas within 
data fields. 

An extra added bonus is that our 
original dBASE II command file used to 
create the datatext.txt file is easily 
modified for use with other dBASE II 
.DBF files by changing the field names 
only via Wordstar or dBASE II' s Modify 
Command. The rest remains intact. 

If you do any work at all with these 
programs and form letters, you'll find 
this method unbeatable. 
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A Step-Trace facility with 
a handy twist. 



E 



Have you ever tried to debug a 
machine-language program by step- 
tracing it and found that you were 
looking at a lot of instructions that you 
had not written; This can be slow and 
annoying. 

The reason for this phenomenon is 
obvious — all JSR calls to MONITOR 
routines get traced through step-by- 
step and this is distracting. I decided 
that I wanted a step-trace program that 
would display only my instructions, 
i.e., any call to a monitor subroutine 
would be handled as a single step 
operation, no matter how many 
monitor steps were actually involved. 
For background, I studied 
Peterson's Step-Trace in MICRO on the 



R 



by Chester H. Page 

Silver Spring, Maryland 



Apple, Volume 2. That program 
mimics the Step-Trace facility that was 
in the old monitor ROM before the 
days of AutoStart. He added a few 
features such as interrupted trace. In 
addition to the nuisance of dissecting 
all monitor subroutines used in your 
program, this Step-Trace program has a 
problem with COUT — it hangs up. 
My modification avoids this problem 
because COUT is not dissected. In fact, 
I can step-trace a program which calls 
for printing a word on the screen, then 
activating the printer and repeating the 
print operation on paper! To do this 
requires one special procedure: instead 
of changing output hooks at $36/37 
(which would cause a hang-up| the 
hooks are changed directly in DOS at 



$AA53/AA54. 

For a final touch, my stepper 
program is relocatable and can be 
BRUN at any location that avoids the 
program to be debugged. 

The step-tracing displays of 
instructions and user registers are 
placed on screen lines to 19; user 
COUT output appears in lines 22 and 
23. Lines 20 and 21 maintain a gap for 
better appearance. The right-hand end 
of the gap lines is used for special 
storage, so exhibits a peculiar 
combination of characters. The reason 
for this unconventional storage 
location is to avoid possible 
interference with user programs which 
may use any available zero-page space 
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With these tools... 

S-C Macro Assembler - Combined editor/assem- 
bler includes 29 commands and 20 directives, with 
macros, conditional assembly, global replace, edit, and 
more Well-known for ease-of-use and powerful features. 
Thousands of users in over 30 countries and in every type 
of industry attest to its speed, dependability, and user- 
friendliness. Blends power, simplicity, and performance to 
provide the optimum capabilities to both beginning and 
professional programmers. With 100-page manual and 
reference card, $Q2 . 50 

Cross Assembler Modules - Owners of the S-C Macro 
Assembler may add the ability to develop programs for 
other systems. We have modules for most of the popular 
chips, at very reasonable prices 

6800/01/02 $32.50 

6805 J32.50 

6809 J32.50 

68000 J50.00 

Z-80 $32.50 

PDP-11 $50.00 

8048 $32.50 

8051 $32.50 

8080/85 $32.50 

1802/04/05 $32.50 

All of the cross assemblers retain the full power of the S-C 
Macro Assembler. You can develop programs for burning 
into EPROMs, transfer through a data-link, or direct 
execution by some of the plug-in processor cards now on 
the market. 

Apple Assembly Line - Monthly newsletter for assembly 
language programmers, beginner or advanced. Tutorial 
articles; ad*anced techniques; handy utility programs; 
commented listings of code in DOS and Apple ROMs; 
reviews of relevant new books, hardware, software; and 
more' $l8peryear(add$3 for first class postage in USA. 
Canada, Mexico; add SI 3 postage for other countries). 

S-C Software Corporation 
2331 Gus Thomasson, Suite 125 
Dallas, Texas 75228 
(214) 324-2050 



and may use the empty spaces in DOS 
for data storage. This special storage 
area is for (1) the split-screen window 
data, (2) storage of output-hook data 
and (3) storage of the XQT (execute 
instruction) area. The old monitor 
ROM uses S3C/44 for XQT, but 
$3E/3F gets overwritten by GETNUM. 
For this reason, the XQT area had to be 
re-initialized before each user step. I 
preferred to avoid this repetition 
because I use a lengthy initialization 
routine for relocatability. The problem 
is in the two jump instructions that 
follow (he user command which was 
copied to XQT. These two jumps are 
for the normal no-branch return and 
the special return when relative-jump 
branches are taken. Since these jumps 
are to routines within the stepper 
program, they must be inserted by a 
code-locating routine. I preferred 
running this just once at the beginning 
of the program. 

STEPPER is conventional except for 
one major departure. After a user 
instruction is copied to XQT, it is 
examined to see if it calls an address in 
the monitor. If so, the instruction is 



executed directly instead of being 
simulated and stepped through. In the 
case of an indirect jump, the indicated 
jump address is examined for location. 
If it is in the monitor, it is displayed 
and the instruction executed. 
To use STEPPER, load the program to 
be debugged (at $nnnn), enter HOME, 
then BRUN STEPPER, AX at any 
convenient location. Your program can 
be stepped through by entering nnnnS, 
followed by entering an S for each 
successive step. Alternatively, nnnnT 
will produce a continuous trace of 
successive steps which can be 
interrupted by pressing any key and 
restarted with T, or shifted to single 
steps with S. 

STEPPER can be tested on STEPPER 
DEMO. STEPPER DEMO includes 
subroutines, direct jumps and indirect 
jumps, both within itself and to the 
monitor and hook changing. To run, 
BLOAD STEPPER DEMO, enter 
HOME, BRUN STEPPER and enter 
SOOT. The word "TEST" should be 
printed on the bottom screen line, then 
the printer activated and "TEST" 
printed on paper. 









Listing 1 


Note: Mr. Page uses the S-C Macro 


FDDA- PRBYTE EQU JFDDA 




Assembler, published by 


FDED- C0UT EQU $FDED 


O 


S-C Software Corporation 


FE00- BLl EQU JFE00 
FE75- AlPC EQU $FE75 




**************************** 


FF3A- BELL EQU $FF3A 




* STEPPER * 


FF3F- RESTORE EQU $FF3F 


O 


* CHET PAGE * 


FF4A- SAVE EQU $FF4A 




*************************** 


FFA7- GETNUM EQU JFFA7 




.OR $7000 


FF58- RTRN EQU JFF58 


o 


.TA $800 


FFBE- T0SUB EQU $FFBE 


* .TF STEPPER 


FFC5- ZMOD0 EQU $FFC5 




0022- W EQU $22 


FFC7- ZM0DE EQU $FFC7 




002F- LENGTH EQU $2F 


FFCC- CHRTBL EQU JFFCC 


o 


0033- PROMPT EQU $33 


* . . . 




0034- YSAV EQU $34 


^INITIALIZE WINDOW AREAS 




003A- PCL EQU $3A 


* 




003B- PCH EQU $3B 


7000- A9 00 LDA #0 


o 


003C- INDPTR EQU $3C 


7002- 85 22 STA W 




0048- STATUS EQU $48 


7004- 8D 72 06 STA UW+2 




0100- STACK EQU $100 


7007- A9 14 LDA #$14 


o 


066E- 0UTPRT EQU $66E 


7009- 85 23 STA W+l 




06EF- XQT EQU $6EF 


700B- A9 13 LDA #$13 




0670- UW EQU $670 


700D- 85 25 STA W+3 




0674- TW EQU $674 


700F- A9 16 LDA #$16 


o 


AA53- HOOK EQU $AA53 


7011- 8D 70 06 STA UW 




C000- KBRD EQU $C000 


7014- A9 18 LDA #$18 




F882- INSDS1 EQU $F882 


7016- 8D 71 06 STA UW+1 


© 


F8D0- INSTDSP EQU JF8D0 


7019- A9 17 LDA #$17 


F948- PRBLNK EQU $F948 


701B- 8D 73 06 STA UW+3 




F954- PCADJ2 EQU $F954 


* 




F956- PCADJ3 EQU $F956 


701E- AD 53 AA LDA HOOK 


© 


FAD7- REGDSP EQU $FAD7 


7021- 8D 6E 06 STA 0UTPRT 




FC22- VTAB EQU $FC22 


7024- AD 54 AA LDA H00K+1 




FD67- GETLNZ EQU $FD67 


7027- 8D 6F 06 STA 0UTPRT+1 



56 



MICRO 



No. 75 - September 1984 









* 


*RELAYS 




* INITIALIZE XEQ RETURNS 


70A4- 50 58 PCN3A1 BVC PCN3A2 




* 


70A6- 50 58 PCN2A1 BVC PCN2A2 


o 


702A- 20 58 FF JSR RTRN 


70A8- 50 D2 STRT1 BVC STRT 




702D- B8 CLV 


70AA- AD 00 C0 TRACE IDA KBRD 




702E- 50 07 BVC NB 


*STOP ON ANY KEY 


o 


7030- 20 4A FF NBRN JSR SAVE 


* WAIT FOR NEXT, REPEAT STEP 


7033- 38 SEC 


70AD- 30 15 BMI AGIN 




7034- B8 CLV 


70 AF- C6 34 DEC YSAV 




*RELAY TO PCN3 LOCATE NBRN 


70B1- 20 C7 FF ENT JSR ZMODE 


o 


* AND INSERT JUMP 


70B4- B8 CLV 




7035- 50 6D BVC PCN3A1 


70B5- 50 12 BVC STEP 




7037- BA NB TSX 


*TRY MONITOR COMMANDS 




7038- CA DEX 


*SEARCH MON CHARS 


o 


7039- 18 CLC 


70B7- A0 17 MCMD LDY #$17 




703 A- BD 00 01 IDA STACK, X 


70B9- 88 CHRS DEY 




703D- 69 04 ADC #4 


70BA- 30 C0 BMI STRT 


G 


703 F- 8D F3 06 STA XQT+4 


*CMP WITH TABLE, TRY AGAIN 


7042- E8 INX 


* FOUND, PROCEED 




7043- BD 00 01 IDA STACK, X 


70BC- D9 CC FF CMP CHRTBL,Y 




7046- 69 00 ADC #0 


70BF- D0 F8 BNE CHRS 


O 


7048- 8D F4 06 STA XQT+5 


70C1- 20 BE FF JSR TOSUB 




704B- A9 4C IDA #$4C 


70C4- A4 34 AGIN LDY YSAV 




704D- 8D F2 06 STA XQT+3 


70C6- B8 CLV 




7050- 8D F5 06 STA XQT+6 


*GET NEXT COMMAND, ADR TO PC 


o 


7053- 20 58 FF JSR RTRN 


* DISPLAY INSTRUCTION 




7056- B8 CLV 


* RESET OUTPUT PORT 




7057- 50 0F BVC BR 


70C7- 50 CI BVC NXTI 


o 


7059- 18 BRAN CLC 


70C9- 20 75 FE STEP JSR A1PC 




705A- A0 01 LDY #1 


70CC- 20 D0 F8 JSR INSTDSP 




705C- Bl 3A IDA (PCL),Y 


70CF- AD 6E 06 IDA OUTPRT 




705E- 20 56 F9 JSR PCADJ3 


70D2- 8D 53 AA STA HOOK 


o 


7061- 85 3A STA PCL 


70D5- AD 6F 06 IDA OUTPRT+1 




7063- 98 TYA 


70D8- 8D 54 AA STA HOOK+1 




7064- 38 SEC 


70DB- A2 02 LDX #2 


o 


7065- B8 CLV 


*NOP'S TO XEQ AREA 


*RELAY TO PCN2 LOCATE BRAN 


70DD- A9 EA XQIN IDA #$EA 




* AND INSERT JUMP 


70DF- 9D EF 06 STA XQT,X 




7066- 50 3E BVC PCN2A1 


70E2- CA DEX 


o 


7068- BA BR TSX 


70E3- D0 F8 BNE XQIN 




7069- CA DEX 


* 




706 A- 18 CLC 


* COPY USER COMMAND 




706B- BD 00 01 IDA STACK, X 


* 


o 


706E- 69 04 ADC #4 


70E5- A2 00 LDX #0 




7070- 8D F6 06 STA XQT+7 


70E7- Al 3A IDA (PCL,X) 




7073- E8 INX 


70E9- D0 17 BNE NOTBRK 


o 


7074- BD 00 01 IDA STACK, X 


*SET SCREEN OUTPUT 


7077- 69 00 ADC #0 


70EB- A9 F0 IDA #$F0 




7079- 8D F7 06 STA XQT+8 


70ED- 8D 53 AA STA HOOK 




* 


70F0- A9 FD IDA #$FD 


o 


707C- D8 STRT CLD 


70F2- 8D 54 AA STA HOOK+1 




707D- 20 3k FF JSR BELL 


70F5- 20 82 F8 JSR INSDS1 




7080- A9 2A CONT IDA #$2A 


70F8- 20 D7 FA JSR REGDSP 


o 


7082- 85 33 STA PROMPT 


70FB- B8 CLV 


7084- 20 67 FD JSR GETLNZ 


*RELAY 




7087- 20 C7 FF JSR ZMODE 


70FC- 50 AA BVC STRT1 




708A- 20 A7 FF NXTI JSR GETNUM 


70FE- 50 7B PCN3A2 BVC PCN3A3 


o 


708D- 84 34 STY YSAV 


7100- 50 7B PCN2A2 BVC PCN2A3 




*IS IT STEP? IS IT TRACE? 


* 




* IS IT < CR> ? 


* EXAMINE OPCODE 




708F- C9 EC CMP #$EC 


* 


o 


7091- F0 IE BEQ ENT 


7102- A4 2F NOTBRK LDY LENGTH 




7093- C9 ED CMP #$ED 


7104- C9 20 CMP #$20 




7095- F0 13 BEQ TRACE 


7106- D0 0A BNE TRYJMP 


o 


7097- C9 C6 CMP #$C6 


*IT IS JSR 




7099- D0 1C BNE MCMD 


*IS IT IN MONITOR? 




709B- 20 C5 FF JSR ZMOD0 


*YES, SO EXECUTE, NO, SIMULATE 




709E- 20 00 FE JSR BL1 


7108- Bl 3A IDA (PCL),Y 


o 


70A1- B8 CLV 


710A- C9 F8 CMP #$F8 




70A2- 50 DC BVC CONT 


710C- B0 71 BCS EX1 
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710E- 90 73 BCC SJSR1 


7193- 49 14 EOR #$l4 


s 


7110- 50 B2 AGIN2 BVC AGIN 


7195- C9 04 CMP #4 




7112- C9 4C TRYJMP CMP #$4C 


*SET UP BRANCH, RETURN TO BRAN 


o 


7114- D0 08 BNE TRYIND 


7197- F0 02 BEQ XQ2 


"IT IS JMP 


7199- Bl 3A XQ1 LDA (PCL),Y 




*IS IT TO MONITOR? 


719B- 99 EF 06 XQ2 STA XQT,Y 




"YES, EXECUTE NO, SIMULATE 


719E- 88 DEY 


o 


7116- Bl 3A LDA (PCL),Y 


719F- 10 F8 BPL XQ1 




7118- C9 F8 CMP #$F8 


"RESTORE USER REGISTERS, EXEC USER CMD 




711A- B0 69 BCS EX2 


71A1- 20 3F FF JSR RESTORE 


G 


711C- 90 69 BCC SJMP 


71A4- 4C EF 06 JMP XQT 


711E- C9 6C TRYIND CMP #$6C 


"SIMULATE RTI 




7120- D0 67 BNE TRYRTS 


71A7- 18 SRTI CLC 




* INDIRECT JUMP 


71A8- 68 PLA 


O 


7122- Bl 3A LDA (PCL),Y 


71A9- 85 48 STA STATUS 




712-4- 85 3D STA INDPTR+1 


"SIMULATE RTS 




7126- 88 DEY 


71AB- 68 SRTS PLA 




7127- Bl 3A LDA (PCL),Y 


71AC- 85 3A STA PCL 


O 


7129- 85 3C STA INDPTR 


71AE- 68 PLA 




712B- Bl 3C LDA ( INDPTR), Y 


71AF- 85 3B PCN2 STA PCH 




"IS IT TO MONITOR? SIMULATE 


71B1- 20 54 F9 PCN3 JSR PCADJ2 


O 


712D- C9 F8 CMP #$F8 


71B4- 84 3B STY PCH 




712F- 90 45 BCC SIND1 


71B6- 18 CLC 




* 


71B7- 90 18 BCC NEWP 




* DISPLAY MONITOR ADDRESS 


"RELAYS 


O 


* 


71B9- 50 43 USER1 BVC USER4 




7131- AD 53 AA LDA HOOK 


71BB- 50 36 USER2 BVC USER3 




7134- 8D 6E 06 STA OUTPRT 


"SIMULATE JSR 


O 


7137- AD 54 AA LDA HOOK+1 


"SIMULATE RETURN TO STACK 


713A- 8D 6F 06 STA OUTPRT+1 


71BD- 18 SJSR CLC 




713D- A9 F0 LDA iP$F0 


71BE- 20 54 F9 JSR PCADJ2 




713F- 8D 53 AA STA HOOK 


71C1- AA TAX 


o 


7142- A9 FD LDA #$FD 


71C2- 98 TYA 




7144- 8D 54 AA STA HOOK+1 


71C3- 48 PHA 




7147- A9 8D IDA #$8D 


71C4- 8A TXA 




7149- 20 ED FD JSR COUT 


71C5- 48 PHA 


G 


714C- 20 48 F9 JSR PRBLNK 


71C6- A0 02 LDY #2 




714F- 20 48 F9 JSR PRBLNK 


"SIMULATE JUMP 




7152- 20 48 F9 JSR PRBLNK 


71C8- 18 SJMP CLC 


O 


7155- A9 A4 LDA #$A4 


"SIMULATE INDIRECT JUMP 


7157- 20 ED FD JSR COUT 


71C9- Bl 3A SIND LDA (PCL),Y 




715A- Bl 3C LDA (INDPTR), Y 


71CB- AA TAX 




715C- 20 DA FD JSR PRBYTE 


71CC- 88 DEY 


O 


715F- 88 DEY 


71CD- Bl 3 A LDA (PCL),Y 




7160- Bl 3C LDA (INDPTR), Y 


71CF- 86 3B STX PCH 




7162- 20 DA FD JSR PRBYTE 


71D1- 85 3A NEWP STA PCL 


O 


7165- AD 6E 06 LDA OUTPRT 


71D3- B0 F3 BCS SJMP 


7168- 8D 53 AA STA HOOK 


71D5- AD 53 AA NEWP2 LDA HOOK 




716B- AD 6F 06 LDA OUTPRT+1 


71D8- 8D 6E 06 STA OUTPRT 




716E- 8D 54 AA STA HOOK+1 


71DB- AD 54 AA LDA HOOK+1 


o 


* 


71DE- 8D 6F 06 STA OUTPRT+1 




7171- A4 2F LDY LENGTH 


71E1- A9 F0 LDA #$F0 




7173- B8 CLV 


71E3- 8D 53 AA STA HOOK 




7174- 50 43 BVC USER1 


71E6- A9 FD LDA #$FD 


o 


7176- A4 2F SIND1 LDY LENGTH 


71E8- 8D 54 AA STA HOOK+1 




7178- 38 SEC 


71EB- 20 D7 FA JSR REGDSP 




7179- B0 4E BCS SIND 


71EE- B8 CLV 


o 


"RELAYS 


"RELAY TO AGIN 


717B- 50 34 PCN3A3 BVC PCN3 


71EF- 50 90 BVC AGIN1 




717D- 50 30 PCN2A3 BVC PCN2 


71F1- 50 E2 NEWP1 BVC NEWP2 




717F- B0 3A EX1 BCS USER2 


* 


o 


7181- 50 8D AGIN1 BVC AGIN2 


"EXECUTE MONITOR ROUTINE 




7183- 90 38 SJSR1 BCC SJSR 


* 




7185- B0 32 EX2 BCS USER1 


"IF MONITOR SUBROUTINE SET UP RETURN 


o 


7187- 90 3F SJMP1 BCC SJMP 


"AND CONVERT JSR TO JMP 


7189- C9 60 TRYRTS CMP #$60 


71F3- 18 USER3 CLC 




718B- F0 IE BEQ SRTS 


71F4- 20 54 F9 JSR PCADJ2 




718D- C9 40 CMP #$40 


71F7- AA TAX 


o 


718F- F0 16 BEQ SRTI 


71F8- 98 TYA 




7191- 29 IF AND #$1F 


71F9- 48 PHA 
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71FA- 8A TXA 


... _ 1000 ****************** 
IS mfl 1010 ♦ STEPPER DEMO ♦ 




71FB- 48 PHA 


© 


71FC- A0 02 LDY #2 


1020 ****************** 


♦EXECUTE MONITOR ROUTINE 


1030 .OR $300 




71FE- A9 60 USER4 IDA #$60 


1040 .TA $800 




7200- 8D F2 06 STA XQT+3 


1050 .TF STEPPER DEMO 


© 


7203- Bl 3A .1 IDA (PCL),Y 


FDED- 1060 COUT .EQ $FDED 




7205- 99 EF 06 STA XQT,Y 


0006- 1070 PTR .EQ $6 




7208- 88 DEY 


0300- 20 11 03 1080 JSR TEXT 




7209- 10 F8 BPL .1 


0303- A9 00 1090 IDA #0 


© 


♦IF JSR, CONVERT TO JMP 


0305- 8D 53 AA 1100 STA $AA53 




720B- C9 20 CMP #$20 


0308- A9 CI 1110 IDA #$C1 




720D- D0 06 BNE .2 


030A- 8D 54 AA 1120 STA $AA54 


© 


720F- A9 4C IDA #$4C 


030D- 20 11 03 1130 JSR TEXT 


7211- C8 INY 


0310- 00 1140 BRK 




7212- 99 EF 06 STA XQT.Y 


0311- A9 8D 1150 TEXT IDA #$8D 




7215- A2 03 .2 LDX #3 


0313- 20 ED FD 1160 JSR COUT 


© 


♦SAVE TRACE WINDOW DATA 


0316- A9 D4 1170 IDA #$D4 




7217- B5 22 SVT IDA W,X 


0318- 20 44 03 1180 JSR Tl 




7219- 9D 74 06 STA TW,X 


031B- A9 C5 1190 IDA #$C5 




721C- CA DEX 


03 ID- 20 47 03 1200 JSR T2 


© 


721D- 10 F8 BPL SVT 


0320- A9 D3 1210 IDA #$D3 




72 IF- A2 03 LDX #3 


0322- 20 4F 03 1220 JSR T5 




♦LOAD USER-WINDOW DATA 


0325- 20 58 FF 1230 JSR $FF58 


© 


7221- BD 70 06 LDU IDA UW,X 


0328- 20 54 03 1240 JSR T7 




7224- 95 22 STA W,X 


032B- A2 41 1250 LDX #W0RD 




7226- CA DEX 


032D- A0 03 1260 LDY /WORD 




7227- 10 F8 BPL LDU 


032F- 86 06 1270 STX PTR 


© 


7229- 20 22 FC JSR VTAB 


0331- 84 07 1280 STY PTR+1 




722C- 20 3F FF JSR RESTORE 


0333- A0 00 1290 LDY #0 




722F- 20 EF 06 JSR XQT 


0335- Bl 06 1300 PRINT IDA (PTR),Y 


© 


7232- 20 4A FF JSR SAVE 


0337- F0 07 1310 BEQ DONE 


7235- A2 03 LDX #3 


0339- 20 ED FD 1320 JSR COUT 




♦SAVE USER-WINDOW DATA 


033C- C8 1330 INY 




7237- B5 22 SVU IDA W,X 


033D- 4C 35 03 1340 JMP PRINT 


© 


7239- 9D 70 06 STA UW,X 


0340- 60 1350 DONE RTS 




723C- CA DEX 


0341- D4 8D 00 1360 WORD .HS D48D00 




723D- 10 F8 BPL SVU 


0344- 4C ED FD 1370 Tl JMP COUT 




723 F- A2 03 LDX §3 


0347- 6C 4A 03 1380 T2 JMP (T3) 


© 


♦LOAD TRACE-WINDOW DATA 


034A- 4C 1390 T3 .DA #T4 




7241- BD 74 06 IDT IDA TW,X 


034B- 03 1400 .DA /T4 




7244- 95 22 STA W,X 


034C- 4C 3C FF 1410 T4 JMP $FF3C 


© 


7246- CA DEX 


034F- 6C 52 03 1420 T5 JMP (T6) 


7247- 10 F8 BPL IDT 


0352- ED FD 1430 T6 .HS EDFD 




7249- A9 4C IDA #$4C 


0354- 6C 57 03 1440 T7 JMP (T8) 




724B- 8D F2 06 STA XQT+3 


0357- 58 FF 1450 T8 .HS 58FF 


© 


♦RECOVER RETURN ADDRESS 


.DA DAta 




724E- 68 PLA 


'Creates constants or variables in your 




724F- 85 3A STA PCL 


program... The value of the expression, as one 


© 


7251- 68 PLA 


or two bytes, is stored at the current loca- 


7252- 85 3B STA PCH 


tion. If a label is present, it is defined as the 




7254- E6 3A INC PCL 


address where the first byte of data is stored.' 




7256- D0 02 BNE .2 


.HS Hex String 


© 


7258- E6 3B INC PCH 


'Converts a string of hex digits (hhh...h) 




725A- A2 00 .2 LDX #0 


to binary, two digits per byte, and stores 




725C- B8 CLV 


them starting at the current location. If a 


© 


♦RELAY TO NEWP2 


label is present, it is defined as the address 


725D- 50 92 BVC NEWP1 


where the first byte is stored.' 


© 




.TF Target File 

'Causes the object code generated to be stored 






on a binary file, rather than in memory.' 






TA Target Address 


© 


For those who aren't using an S-C Assembler, to the right 


'Sets the target address at which the object- 


are definitions of those commands which are unique to 


code will be stored during assembly.' 




this assembler. The following are from the 'S-C Macro 


.OR Origin 


© 


Assembler' by Bob Sander-Cederlof, copyright 1982, S-C 


'Sets the program origin and the target address 


Software Corporation. 


to the value of the expression. Program ori- 






gin is the address at which the object program 






will be executed.' JMCftO 
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Mastering Your VIC-20 

Mastering Your Commodore 64 

The 8 programs, "run-ready" on disk (C-64) or 
tape (VIC-20) and explained in the 160-192 page 
book, each demonstrate important concepts of 
BASIC while providing useful, enjoyable software. 
Programs include: 

• Player — compose songs from your keyboard, 
save, load and edit for perfect music 

• MicroCalc — display calculation program that 
make even complex operations easy 

• Master — a one or two person guessing game 

• Clock — character graphics for a digital clock 

VIC-20 with tape & book just $19.95 

C-64 with disk & book (avail. Sept.) just $19.95 

Look for us at the 

International Software Show 

Toronto, September 20-23 



MICROCalc for C-64 

This on-screen calculator comes with diskette and 
48-page manual offering a wide variety of useful 
screens, and a great way to learn BASIC expressions 
if you don't already know them. 

• Unlimited calculation length & complexity 

• Screens can be linked and saved on disk/cassette 

• Build a library of customized screens 

• Provide formatted printer output 

Diskette & 48-page manual just $29.95 



For the Freshest Books, Buy Direct 

• No prehandled books with bent corners 

• Books come direct to your door 

• No time wasted searching store to store 

• 24 hours from order receipt to shipment 

• No shipping/handling charges 

• No sales tax (except 5% MA res.) 

• Check, MO, VISA/MC accepted (prepaid only) 



The Computerist Bookcart 

P.O. Box 6502, Chelmsford, MA 01824 
For faster service, phone: 617/256-3649. 



Ae&twte 



Time-Series Forecasting 



Requirements: Apple II, Commodore 
64, Atari, or CoCo with Flex 



Prophets and pundits since time 
immemorial have tried to peer into that 
murky and mysterious region of 
shifting shadows and dancing dreams 
called the future. These seers and 
soothsayers have plied their fortune- 
telling trade using every sort of 
contrivance imaginable: everything 
from shooting stars and playing cards to 
chicken entrails and crystal balls. 

Today you can join this elite group 
of mystics and Merlins by using the 
time-series forecasting program 
presented here. It's written in a 
'generic BASIC and runs nicely on a 
machine with minimum memory. And 
while the forecasts of yesteryear were 
often as illusory as a maintenance-free 
automobile or a meek and mild 
Klingon, the microcomputer 
projections can have a sound scientific 
basis. 

After first explaining what a "time 
series" is, we'll show you how to use 



o 



c 



o 



by Brian Flynn 
Vienna, Virginia 



A program to predict the future. 



the microcomputer program to predict 
future interest rates. We'll describe the 
program's forecasting techniques 

1. Least-Squares Trend 

2. Semi- Averages 

3. Percent Changes 

4. First Differences, and 

5. Past Averages 

and give you hints on when to use each. 

What's a Time Series? 

A time series is a group of observations 
on a variable, in chronological order, at 
a set frequency. Monthly sales, weekly 
income, annual gross national product 
and the number of Americans flying to 
London every August are examples. 

The adjective "time" means that 
our observations are tallied at equal 
calendar intervals. And the noun 
"series" means that we have more 
than one data point. Hence, a "time 
series" records a variable's past and 
time-series forecasting projects its 
future using historical observations. 

As the sage says, the past is 
prologue, or so we hope. 



Real-World Example: 
Whither Interest Rates? 

The future level of interest rates in the 
economy concerns most of us, 
borrowers and lenders alike. If we're 
thinking about financing a new house 
or car, for example, and if interest rates 
are falling, then delay will save us 
dollars. But we're better off buying now 
if interest rates are rising. 

Suppose the dogs of debt are 
muzzled for a change, however, and 
that we strut proudly to the teller's 
window to lend instead of to borrow. 
Cash in hand and nirvana in mind, we 
decide to plop down $5K for a money- 
market certificate maturing 
somewhere between 3 months and 2 
1/2 years. If interest rates are headed 
downward, locking in a relatively high 
rate now for as long as possible (2 1/2 
years) is sound strategy. With rising 
interest rates, on the other hand, we're 
better off with a shorter maturity. 

There's only one catch to this nice 
"buy-low sell-high" kind of advice. 
How do we know if future interest rates 
will rise or fall? To try and find out, 
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let's use the time-series forecasting 
routine. Our first step is to gather 
historical data, with our bountiful 
harvest shown in Table 1. This 
sequence of numbers qualifies as a time 

Table 1 



Interest Rates on 


3-Month Treasury Bills 


Year: Month 


Percent 


1982: 8 


8.68 


9 


7.92 


10 


7.71 


11 


8.07 


12 


7.94 


1983: 1 


7.86 


2 


8.11 


3 


8.35 


4 


8.21 


5 


8.19 


6 


8.79 


7 


9.08 


8 


9.34 


9 


9.00 


10 


8.64 


11 


8.76 


12 


9.00 


1984: 1 


8.90 


2 


9.09 


3 


9.52 


4 


9.69 



Percent 

10.0 X 



9 5 ■■ 



9.0 



8.0 -■ 



series: the observations are in 
chronological order (August 1982 to 
April 1984) at a set frequency 
(monthly). 

After keying our figures into the 
computer, with the program prompting 
us at every turn, the microcomputer 
indicates that future interest rates can 
be predicted using any of these 
extrapolation techniques: (1) Least- 
Squares Trend, (2) Semi-Averages, (3) 
Percent Changes, |4) First Differences, 
and (5) Past Averages. 

We can predict as far into the future 
as we care or dare, using one method 
after another, until all reasonable 
alternatives are exhausted. 

We now explain each technique in 
detail. 

Least-Squares Trend 

In Least-Squares Trend the micro- 
computer forecasts by extrapolating an 
historically fitted regression line into 
the future. As Figure 1 shows, the 
technique satisfies an urge that almost 
all of us have had: to draw a line 
through a plot of points to best reflect 
the apparent trend. 

The microcomputer estimates the 
line using a statistical technique called 
''ordinary least squares". Our 
dependent variable, interest rates, is 
regressed on a lone explanatory 
variable, "time". Observations on the 
latter are generated internally by the 
program, with August 1982 corres- 



Least-Squares Trend 
3-Month Treasury Bill Rate Versus Time 



1 



ponding to 1 (the first time period) , 
September 1982 corresponding to 2 (the 
second time period), and so on. April 
1984 corresponds to 21 since we have 
21 months worth of data. 

Technically, the microcomputer 
estimates our linear equation so that 
the sum of squared deviations of our 
observations from the line is as small 
as possible,- hence the term "least 
squares". 

Taking a practical example, let's 
forecast interest rates in January 1985. 
We ask the microcomputer to project 
nine months ahead, from May 1984. It 
responds with the forecasts of Table 2. 

FORECASTS 
METHOD: LEAST-SQUARES TREND 



= 9.46 

= 9.53 

= 9.61 

= 9.69 

= 9.77 

= 9.84 

= 9.92 

= 10 

= 10.07 



4 \ 1 1 1 1 1 1 1 1 1 1 1 1 (— I 1 1 I I 1 

82:8 9 10 11 12 83:1 2 3 4 5 6 7 8 9 10 11 12 84:1 2 3 4 



PERIOD 


22 ) 


PERIOD 


23 ) 


PERIOD 


24 ) 


PERIOD 


25 ) 


PERIOD 


26 ) 


PERIOD 


27 ) 


PERIOD 


28 ) 


PERIOD 


29 ) 


PERIOD 


30 ) 



Figure 1 



PERIOD 


22 ) 


PERIOD 


23 ) 


PERIOD 


24 ) 


PERIOD 


25 ) 


PERIOD 


26 ) 


PERIOD 


27 ) 


PERIOD 


28 ) 


PERIOD 


29 ) 


PERIOD 


30 ) 



FORECASTS 



METHOD: SEMI-AVERAGES 



9.62 

9.72 

9.81 

9.9 

9.99 

10.08 

10.18 

10.27 

10.36 



FORECASTS 



METHOD: PERCENT CHANGES 



9.86 

10.03 

10.21 

10.4 

10.58 

10.77 

10.96 

11.16 

11.36 



PERIOD 


22 ) 


PERIOD 


23 ) 


PERIOD 


24 ) 


PERIOD 


25 ) 


PERIOD 


26 ) 


PERIOD 


27 ) 


PERIOD 


28 ) 


PERIOD 


29 ) 


PERIOD 


30 ) 
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FORECASTS 



METHOD: FIRST DIFFERENCES 



PERIOD 


22 


= 9.86 


PERIOD 


23 


= 10.03 


PERIOD 


24 


= 10.2 


PERIOD 


25 


= 10.37 


PERIOD 


26 


= 10.54 


PERIOD 


27 


= 10.71 


PERIOD 


28 


= 10.88 


PERIOD 


29 


= 11.05 


PERIOD 


30 


= 11.22 



FORECASTS 



METHOD: PAST AVERAGES OF 20 



PERIOD 


22 


= 9.75 


PERIOD 


23 


= 9.81 


PERIOD 


24 


= 9.87 


PERIOD 


25 


= 9.93 


PERIOD 


26 


= 9.99 


PERIOD 


27 


= 10.05 


PERIOD 


28 


= 10.11 


PERIOD 


29 


= 10.18 


PERIOD 


30 


= 10.24 



FORECASTS 



METHOD: PAST AVERAGES OF 20 



PERIOD 


22 ) 


PERIOD 


23 ) 


PERIOD 


24 ) 


PERIOD 


25 ) 


PERIOD 


26 ) 


PERIOD 


27 ) 


PERIOD 


28 ) 


PERIOD 


29 ) 


PERIOD 


30 ) 



9.74 

9.79 

9.84 

9.89 

9.94 

9.99 

10.04 

10.09 

10.14 



A big advantage of Least-Squares 
Trend over traditional regression 
routines is that we know future values 
of the explanatory variable ("time") 
with absolute certainty. With the latter 
technique we don't. Using the rate of 
inflation instead of "time" to predict 
interest rates, for example, leaves us 
the problem of estimating the price 
level in January 1985 before we can run 
our model. 

Semi-Averages 

The method of Semi-Averages is 
somewhat akin to Least-Squares Trend. 



Method of Semi-Averages 



Step 1 



Percent 

10.01 



9.5 



9.0" • 



8.0 



7.5" 



H — I — I— | — | — »_| — | — | — |. 



H 1 — I — 1—4 — I — I— I — I — I- 



82:8 9 10 11 12 83:1 2 3 4 5 6 7 8 9 10 1 1 12 84:1 2 3 4 

In the first step the microcomputer divides our time series 
into two roughly equal parts, and computes the mean of 
each [8.1% and 9.1% respectively.) 



Percent 



Step 2 




8.1% 



I I I I I I I I I 1 I I I I I I I I 



82:8 9 10 11 12 83:1 2 3 4 5 6 7 8 9 10 H 1284:1 2 3 4 

In the second step the microcomputer fits a line through 
the two means. The points on the line represent our 
forecasts. 

Figure 2 



Namely, the microcomputer divides 
our time series into two roughly equal 
parts and computes the mean of each. 
Then it fits a line through the two 
points, with values on the line 
representing our forecasts. Figure 2 
details the process. 



Percent Changes 

The Percent Change routine works as 
its name implies. The microcomputer 
first computes the percent delta 
between the last two values of our time 
series: 100*19.69 - 9.52)79.52 = 
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1.79%, or 1.0179 in index form. Then 
it applies this factor to future periods. 

Hence, the predicted interest rate in 
May 1984 is 9.69*1.0179 = 9.86%. 

The technique of Percent Changes 
is usually best suited to short-term 
forecasts, say up to two or three periods 
ahead and for cases where observations 
are highly correlated from one period to 
another. Examples include using 
monthly data to forecast next quarter's 
Dow Jones Average or foreign trade 
deficit. 

As a general rule, leave long-term 
prognostications to Least-Squares 
Trend or to the method of Semi- 
Averages. An exception is when you 
strongly believe that very recent data 
will heavily influence the future. An 
example might be a sharp jump in the 
inflation rate which in turn fuels the 
fear of future price hikes and, hence, 
becomes a self-fulfilling prophecy. 

First Differences 

The First Difference routine works a lot 
like its Percent Change colleague. 
Namely, the difference instead of 
percent change between the last two 
values of the time series is used as the 
factor to forecast future values. 

For our data, this difference is 
9.69 - 9.52 = 0.17. Hence, interest 
rate forecasts for May and June using 
this technique are 9.86% (9.69 + 0.17) 



(9.86 + 0.17), Summary 



and 10. 03' 
respectively. 

Once again, the method of First 
Differences is a short-run forecasting 
tool. You might want to compare it to 
Percent Changes in making 2 or 3 
period forecasts. Your predictions are 
probably strongest where the two 
methods agree and weakest where they 
diverge. The comparison, in other 
words, should give you a "warm 
fuzzy" or a "rigid frigid", or perhaps 
both. 

Past Averages 

Finally, the Past Average routine 
computes Percent Changes and First 
Differences using any number of past 
values, with you telling the 
microcomputer how many. 

For example, the mean of the past 
two first differences is (9.69 — 9.52) 
+ (9.52 - 9.09) all divided by 2, or 
0.30. The microcomputer in this case 
predicts a May 1984 interest rate of 
9.69 + 0.30 = 9.99%. 

The Past Average procedure is 
ideally suited to forecasting situations 
where a string or subset of past values 
is deemed most important. It ignores 
the long-term drift captured by Least- 
Squares Trend and the method of Semi- 
Averages, and avoids the short-run bias 
of Percent Changes and First 
Differences. 



A time series is a group of observations 
on a variable, in chronological order, at 
a set frequency. Your microcomputer 
program forecasts future values of a 
time series using these extrapolation 
techniques: (1) Least-Squares Trend, 
(2) Semi-Averages, (3) Percent 
Changes, (4) First Differences and (5) 
Past Averages. 

All five methods suggest that 
interest rates will rise in the near 
future. And all five invoke the adage 
"The past is prologue." If it isn't, then 
perhaps we ought to have Madame 
Zelna read our palms! 

Listing Notes: 

Brian Flynn provided the original 
programs for the Apple II. Mike Rowe 
has modified these so that they can 
work on the Commodore 64, Atari and 
the CoCo (with Flex), as well as the 
Apple. The Listing 1 contains the 
"generic" code. This will not work 
without the system specific 
subroutines provided below. Listings 2 
through 5 provide the required 
subroutines for the Apple, Commodore 
64, Atari and CoCo (with Flexl 
respectively. These additional routines 
must be added to Listing 1 in order for 
the program to work on any 
microcomputer. 



Listing 1 

10 REM TIME-SERIES FORECASTING 

20 REM BY BRIAN FLYNN 

30 REM MAY 1984 

32 REM MODIFIED FOR COMMODORE 64, ATARI AND FLEX 

34 REM BY MIKE ROWE, JULY 1984 

40 REM INITIALIZE 

50 G0SUB 1000 

60 REM ENTER DATA 

70 G0SUB 3000 

80 REM EDIT DATA 

90 G0SUB 3500 

100 REM CHOOSE METHOD 

110 G0SUB 5000 

120 REM FORECAST 

130 IF CH <> 6 THEN G0SUB 5500: GOTO 110 

140 END 

INSERT SUBROUTINES FOR YOUR MICROCOMPUTER HERE 
x ********* x*x**xx*x**xx**xxxxx**xx*x***xxxxxxx 

1000 REM INITIAIZE 

1010 REM TITLE 

1015 DIM C$(6) 

1020 G0SUB 1500 

1030 REM INSTRUCTIONS 

1040 G0SUB 2000 

1050 REM CHOICES 

1060 G0SUB 2500 

1070 RETURN 

1500 REM TITLE 



1510 
1520 
1530 
1540 
1550 
2000 
2010 
2020 
2039 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 

2160 
2170 
2500 
2510 

2520 



G0SUB 300 

VT=10: HT=15: G0SUB 400: PRINT "TIME-SERIES" 

VT=11: HT=15: G0SUB 400: PRINT "FORECASTING" 

FOR D = 1 TO 1000: NEXT D 

RETURN 

REM INSTRUCTIONS 

REM MAXIMUM NUMBER OF OBSERVATIONS 

DATA 150 

READ MN 

DIM Y(MN) 

REM INSTRUCTIONS 

G0SUB 300 

" THIS PROGRAM FORECASTS FUTURE VALUES" 
"OF A TIME SERIES USING A HOST OF TREND- 
"ANALYSIS TECHNIQUES." 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

VT=22 

PRINT 

G0SUB 600 

RETURN 

REM CHOICES 

DATA LEAST-SQUARES TREND, SEMI-AVERAGES, 

PERCENT CHANGES 

DATA FIRST DIFFERENCES, PAST AVERAGES, NONE 



" THE MAXIMUM NUMBER OF OBSERVATIONS" 
"ALLOWED IS ";MN;"." 

"CHANGE LINE 2020 FOR A DIFFERENT LIMIT. 
HT=14: G0SUB 400: 
"PRESS ANY KEY ": 
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2530 FOR I = 1 TO 6 


5050 VT=2*I+3: HT=10: GOSUB 400: PRINT I;". ";C$(I) 


1 


2540 READ C$(I) 


5060 NEXT I 


o 


2550 NEXT I 


5070 VT=19: HT=10: GOSUB 400: 




2560 RETURN 


PRINT "YOUR CHOICE = ? "; 




3000 REM ENTER DATA 


5080 GOSUB 800: GOSUB 600 




3010 GOSUB 300 


5090 CH = VAL(XX$) 


o 


3020 PRINT " PLEASE ENTER OBSERVATIONS ON YOUR TIME" 


5100 IF CH < 1 OR CH > 6 THEN 5080 




3030 PRINT "SERIES. HIT 'RETURN' WHEN THROUGH." 


5110 RETURN 




3040 N = MN 


5500 REM MAKE PROJECTIONS 


o 


3050 BK$ = " " 


5510 REM NUMBER OF FUTURE PERIODS 




3060 FOR I = 1 TO MN 


5520 GOSUB 6000 




3070 VT=6: HT=1: GOSUB 400 


5530 REM PROJECTIONS 




3075 PRINT "PERIOD #( ";I;") = "; 


5540 GOSUB 300 


o 


3080 GOSUB 700 


5550 IF CH <> 5 THEN VT=12: HT=13: GOSUB 400: 




3090 IFXX$ = "" THEN N = 1-1: I = MN: GOTO 3120 


PRINT "FORECASTING . . . "; 




3100 IF XX$ <> "" THEN Y(I) = VAL(XX$) 


5560 ON CH GOSUB 6500,7000,7500,8000,8500 


o 


3110 VT=6: HT=18: GOSUB 400: PRINT BK$ 


5570 REM DISPLAY 


3120 NEXT I 


5580 GOSUB 11500 




3130 REM CHECK FOR ENOUGH DATA 


5590 RETURN 




3140 IF N > 2 THEN RETURN 


6000 REM NUMBER OF FUTURE PERIODS 


o 


3150 VT=21:HT=1: GOSUB 400 


6010 GOSUB 300 




3160 PRINT "SORRY, AT LEAST 3 OBSERVATIONS NEEDED ! ": 


6020 PRINT "THE LAST PERIOD OF YOUR TIME SERIES IS" 




GOSUB 800: GOTO 3040 


6030 PRINT "NUMBER ";N;"." 


o 


3500 REM EDIT DATA 


6040 PRINT 


3510 FOR L = TO INT((N-l)/10) 


6050 PRINT "HOW MANY PERIODS INTO THE FUTURE DO YOU' 




3520 REM DISPLAY DATA 


6060 VT=5: HT=20: GOSUB 400: PRINT BK$; : GOSUB 800: 




3530 GOSUB 4000 


VT=5: HT=1: GOSUB 400 


o 


3540 REM CORRECT DATA 


6070 PRINT "WANT TO FORECAST ? "; : GOSUB 700 




3550 GOSUB 4500 


6080 NF = VAL(XX$) 




3560 NEXT L 


6090 IF NF < 1 THEN 6060 




3570 RETURN 


6100 REM CHECK FOR ENOUGH MEMORY 


o 


4000 REM DISPLAY DATA 


6110 T = N+NF: IF T < = MN THEN RETURN 




4010 GOSUB 300 


6120 VT=22: HT=1: GOSUB 400 




4020 PRINT "THESE ARE VALUES OF YOUR TIME SERIES: " 


6125 PRINT "SORRY, ONLY ";MN-N; 


o 


4030 FOR J = 1 TO 10 


" MORE PERIODS ALLOWED.";: GOTO 6060 


4040 M = J+L*10 


6130 RETURN 




4050 IF M > N THEN 4060 


6500 REM LEAST-SQUARES TREND 




4055 VT=J+3: HT=1: GOSUB 400: 


6510 REM KEY SUMS 


o 


PRINT "PERIOD ( ";M;" ) = ";Y(M) 


6520 SX = 0:SY = 0:XQ = 0:YQ = 0:CP = 




4060 NEXT J 


6530 FOR I = 1 TO N 




4070 RETURN 


6540 SX = SX+I 




4500 REM CORRECT DATA 


6550 SY = SY+Y(I) 


© 


4510 VT=16: HT=1: GOSUB 400: 


6560 XQ = XQ+I*I 




PRINT "CORRECTIONS (Y/N) ? "; 


6570 YQ = YQ+Y(I) t 2 




4520 GOSUB 800: GOSUB 600 


6580 CP = CP+Y(I)*I 


o 


4530 IF XX$ = "N" THEN 4660 


6590 NEXT I 




4540 IF XX$ < > "Y" THEN 4520 


6600 REM A & B 




4550 VT=18: HT=1: GOSUB 400: 


6610 B = (N*CP-SX*SY)/(N*XQ-SX*SX) 




PRINT "UHAT IS THE NUMBER OF THE DATUM TO" 


6620 A = (SY-B*SX)/N 


© 


4560 VT=19: HT=16: GOSUB 400: PRINT BK$: GOSUB 800 


6630 REM FORECASTS 




4565 VT=19: HT=1: GOSUB 400 


6640 FOR I = N+l TO T 




4570 PRINT "BE CORRECTED ? "; : GOSUB 700 


6650 Y(I) = A+B*I 


o 


4590 Q = VAL(XX$) 


6660 NEXT I 


4600 IF Q > =(1+L*10) OR Q < =N OR Q < =(10+L*10) 


6670 RETURN 




THEN 4610 


7000 REM METHOD OF SEMI-AVERAGES 




4605 VT=21:HT=1: GOSUB 400 


7010 REM NUMBER OF POINTS IN EACH GROUP 


o 


4606 PRINT "OUTSIDE BOUNDS SHOWN. PLEASE TRY AGAIN.": 


7020 Gl = INT (N/2) 




GOTO 4560 


7030 G2 = N-Gl 




4610 VT=23: HT=1: GOSUB 400: GOSUB 800 


7040 REM GROUP MEANS 




4620 PRINT "NEW VALUE = "; : GOSUB 700 


7050 Yl = 0:X1 = 


o 


4640 Y(Q) = VAL(XX$) 


7060 FOR I = 1 TO Gl 




4650 GOSUB 4000: GOTO 4510 


7070 Yl = Y1+Y(I) 




4660 RETURN 


7080 XI = Xl+I 


o 


5000 REM CHOOSE METHOD 


7090 NEXT I 




5010 GOSUB 300 


7100 Yl = Y1/G1:X1 = Xl/Gl 




5020 PRINT "FUTURE VALUES OF YOUR TIME SERIES ARE" 


7110 REM MEANS OF SECOND GROUP 




5030 PRINT "PROJECTED USING ANY OF THESE METHODS:" 


7120 Y2 = 0:X2 = 


o 


5040 FOR I = 1 TO 6 


7130 FOR I = Gl+1 TO N 
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7140 Y2 = Y2+Y(I] 


10030 FOR I = N TO N-PP+1 STEP-1 


o 


7150 X2 = X2+I 


10040 PC = PC+Y(I)/Y(I-1) 


7160 NEXT I 


10050 NEXT I 




7170 Y2 = Y2/G2:X2 = X2/G2 


10060 PC = PC/PP 




7180 B = (Y2-Y1)/(X2-X1) 


10070 REM FORECASTS 


o 


7190 REM Y-INTERCEPT 


10080 FOR I = N+l TO T 




7200 A = Y2-B*X2 


10090 Y(I) = Y(I-1)#PC 




7210 REM FORECASTS 


10100 NEXT I 




7220 FOR I = N+l TO T 


10110 RETURN 


o 


7230 Y(I) = A+B*I 


10500 REM FIRST DIFFERENCES 




7240 NEXT I 


10510 REM PAST AVERAGE 




7250 RETURN 


10520 FD = 





7500 REM PERCENT CHANGE 


10530 FOR I = N TO N-PP+1 STEP-1 


7510 FOR I = N+l TO T 


10540 FD = FD+Y(I)-Y(I-1) 




7520 Y(I) = Y(I-l)*Y(I-l)/Y(I-2) 


10550 NEXT I 




7530 NEXT I 


10560 FD = FD/PP 


o 


7540 RETURN 


10570 REM FORECASTS 




8000 REM FIRST DIFFERENCE 


10580 FOR I = N+l TO T 




8010 FOR I = N+l TO T 


10590 Y(I) = Y(I-1)+FD 




8020 Y(I) = 2*Y(I-l)-Y(I-2) 


10600 NEXT I 


o 


8030 NEXT I 


10610 RETURN 




8040 RETURN 


11000 REM ACTUAL VALUES 




8500 REM PAST AVERAGE 


11010 REM PAST AVERAGE 


o 


8510 PRINT "WOULD YOU LIKE TO USE AN AVERAGE OF" 


11020 AC = 




8520 PRINT "PAST: " 


11030 FOR I = N TO N-PP+1 STEP-1 




8530 VT=4: HT=10: GOSUB 400: PRINT "1. % CHANGES" 


11040 AC = AC+Y(I) 




8540 VT=6: HT=10: GOSUB 400: 


11050 NEXT I 


o 


PRINT "2. FIRST DIFFERENCES" 


11060 AC = AC/PP 




8550 VT=8: HT=10: GOSUB 400: 


11070 REM FORECASTS 




PRINT "3. ACTUAL VALUES" 


11080 FOR I = N+l TO T 


o 


8560 VT=12: HT=10: GOSUB 400: PRINT "CHOICE = ? "; 


11090 Y(I) = AC 


8570 GOSUB 800: GOSUB 600 


11100 NEXT I 




8580 AV = VAL(XX$) 


11110 RETURN 




8590 IF AV < 1 OR AV > 3 THEN 8570 


11500 REM DISPLAY 


o 


8600 IF AV = 1 THEN T$ = "PERCENT CHANGES" 


11510 FOR L = TO INT((NF-1)/10) 




8610 IF AV = 2 THEN T$ = "FIRST DIFFERENCES" 


11520 REM HEADING 




8620 ON AV GOSUB 9000,9000,9500 


11530 GOSUB 12000 




8630 GOSUB 300 


11540 REM BODY 


o 


8640 VT=12: HT=13: GOSUB 400: 


11550 GOSUB 13000 




PRINT "FORECASTING ..." 


11560 NEXT L 




8650 ON AV GOSUB 10000,10500,11000 


11570 RETURN 


o 


8660 RETURN 


12000 REM HEADING 


9000 REM % CHANGES OR FIRST DIFFERENCES 


12010 GOSUB 300 




9010 VT=15: HT=1: GOSUB 400: 


12020 F$ = "=====—================ = = ==== = = ========" 




PRINT "HOW MANY PAST ";T$ 


12030 PRINT F$ 


o 


9020 VT=16: HT=22: GOSUB 400: PRINT BK$: GOSUB 800 


12040 VT=2: HT=16: GOSUB 400: PRINT "FORECASTS" 




9030 VT=16: HT=1: PRINT "DO YOU WANT TO USE ? "; : 


12050 PRINT F$ 




GOSUB 700 


12060 VT=5: HT=1: GOSUB 400: PRINT "METHOD: ";C$(CH); 




9040 PP = VAL(XX$) 


12070 IF CH = 5 THEN GOSUB 12500 


o 


9050 IF PP < 1 THEN 9020 


12080 RETURN 




9060 IF PP < N THEN RETURN 


12500 REM PAST AVERAGE 




9070 VT=22: HT=1: GOSUB 400 


12510 PRINT " OF ";PP 


o 


9080 PRINT "SORRY, ONLY ";N-1;" ARE AVAILABLE": 


12520 VT=6: HT=9: GOSUB 400 


GOTO 9020 


12530 IF AV = 1 THEN PRINT "% CHANGES" 




9500 REM ACTUAL VALUES 


12540 IF AV = 2 THEN PRINT "FIRST DIFFERENCES" 




9510 VT=15: HT=1: GOSUB 400: 


12550 IF AV = 3 THEN PRINT "ACTUAL VALUES" 


o 


PRINT "HOW MANY PAST ACTUAL VALUES WOULD" 


12560 RETURN 




9520 VT=16: HT=19: GOSUB 400: PRINT BK$: GOSCB 800 


13000 REM BODY 




9530 VT=16: HT=1: GOSUB 400: 


13010 FOR J = 1 TO 10 


o 


PRINT "YOU LIKE TO USE ? "; : GOSUB 700 


13020 M = J+LU0+N 


9540 PP = VAL(XX$) 


13030 IF M > T THEN 13040 




9550 IF PP < 1 THEN 9520 


13035 VT=J+7: HT=1: GOSUB 400: 




9560 IF PP < = N THEN RETURN 


PRINT "PERIOD ( "jMj" )= ";Y(M) 


o 


9570 VT=22: HT=1: GOSUB 400 


13040 NEXT J 




9580 PRINT "SORRY, ONLY ";N; " ARE AVAILABLE": 


13050 VT=21: HT=1: GOSUB 400: PRINT F$ 




GOTO 9520 


13060 VT=22: HT=l4: GOSUB 400: 




10000 REM PERCENT CHANGES 


PRINT "PRESS ANY KEY "; 





10010 REM PAST AVERAGE 


13070 GOSUB 600 




10020 PC = 


13080 RETURN 
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Subroutines 


499 REM ♦* POSITION CURSOR AND PRINT SPACES ** 





200 REM FLEX SUBROUTINES 


500 GOSUB 400: PRINT SPC(SP);: RETURN 




299 REM ** CLEAR DISPLAY ** 


599 REM ** GET SUBROUTINE ** 


o 


300 PRINT CHR$(ll);CHR$(27);"X";CHR$(24);:RETURN 


600 GET XX$: RETURN 




399 REM ** POSITION CURSOR ** 


699 REM ** INPUT SUBROUTINE ** 


o 


400 IF VT>0 THEN PRINT CHR$(11);: 


700 INPUT XX$: RETURN 




FOR 11=1 TO VT: PRINT; NEXT II 






410 IF HT>0 THEN PRINT TAB(HT); 


799 REM ** MAKE SOUND ** 


o 


420 RETURN 


800 PRINT CHR$(7);: RETURN 


499 REM ** POSITION CURSOR AND SPACE ** 


******************************* 




500 GOSUB 400: PRINT SPC(SP);: RETURN 
599 REM ** GET CHARACTER ROUTINE ** 




o 




600 INPUT XX$: IF XX$="X" THEN XX$="" 






610 RETURN 


*** ATARI VERSION *** 


o 


699 REM ** INPUT ROUTINE ** 


200 REM ATARI SUBROUTINES 




700 GOTO 600 


299 REM ** HOME AND CLEAR DISPLAY ** 


o 


799 REM ** MAKE SOUND (OPTIONAL) ** 


300 PRINT CHR$(125);:RETURN 




800 RETURN : REM ADD CODE HERE TO MAKE A 






801 REM SOUND IF YOU SO DESIRE ! ! 


399 REM ** POSITION CURSOR ** 


o 




400 POSITION HT,VT:RETURN 

499 REM ** POSITION CURSOR AND PRINT SPACES ** 


o 




ft******************************** 


500 GOSUB 400 




510 FOR 1=1 TO SP:PRINT CHR$ (32 ): NEXT I: RETURN 




200 REM COMMODORE SUBROUTINES 








599 REM ** GET SUBROUTINE ** 


o 


299 REM ** HOME AND CLEAR DISPLAY ** 


600 GET #1,X:XX$=CRR$(X):RETURN 




300 PRINT "{CLEAR}";: RETURN 


699 REM ** INPUT SUBROUTINE ** 




399 REM ** POSITION CURSOR ** 


700 INPUT XX$: RETURN 


o 


400 PRINT "{HOME}"; 






410 FOR XX=1 TO VT: PRINT :NEXT XX 


799 REM ** MAKE SOUND ** 




420 IF HT>0 THEN PRINT TAB(HT); 


800 RETURN 


o 


430 RETURN 


810 REM ADD YOU OWN SOUND IF DESIRED 


499 REM ** POSITION CURSOR AND SPACE ** 


*** THE NEXT TWO LINES MUST BE ADDED *** 




500 GOSUB 400: PRINT SPC(SP);: RETURN 


1015 DIM BK$(10),XX$(10),T$(20),F$(40) 





599 REM ** GET SUBROUTINE ** 


1016 OPEN #1,4,0, "K:" 




600 XX$="" 






610 GET XX$: IF XX$="" THEN 610 


*** LINE 1060 AND LINES 2500 TO 2560 MUST BE DELETED . M 


620 RETURN 


*** REPLACE LINES 5050 AND 12060 AS FOLLOWS: 




699 REM ** INPUT SUBROUTINE ** 







700 PRINT {SPACE10,BACKSPACE10};: INPUT XX$: RETURN 


5050 VT=2* 1+3 :HT=10: GOSUB 400:PRINT I;". ";: 
GOSUB 14000 




799 REM ** MAKE SOUND (OPTIONAL) ** 






800 RETURN : REM ADD CODE TO MAKE A 


12060 VT=5:HT=1: GOSUB 400:PRINT "METHOD: "; : 


o 


801 REM SOUND IF YOU SO DESIRE ! ! ! 


GOSUB 14005 




#*#*#*****************#*##****#** 


*** ADD THE FOLLOWING SUBROUTINE 

14000 ON I GOTO 14010, 14020, 14030, 14040, 14050, 14060 


o 








14005 ON CH GOTO 14010, 14020,14030, 14040, 14050, 14060 


♦♦a****************************** 


14010 PRINT "LEAST-SQUARES TREND"; : RETURN 
14020 PRINT "SEMI-AVERAGES"; :RETURN 


o 


200 REM APPLE II SUBROUTINES 


14030 PRINT "PERCENT CHANGES"; : RETURN 






14040 PRINT "FIRST DIFFERENCES"; :RETURN 


o 


299 REM ** HOME AND CLEAR DISPLAY ** 


14050 PRINT "PAST AVERAGES"; .-RETURN 


300 HOME : RETURN 


14060 PRINT "NONE"; : RETURN 




399 REM ** POSITION CURSOR ** 




© 


400 IF VT>0 THEN VTAB(VT) 




410 IF HT> THEN HTAB(HT) 






420 FETURN 




1 
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Title: Mastering Your Atari Through Eight BASIC Projects 

Author: the staff of MICRO magazine, Tom Marshall ed. 
Price: $19.95, disk included 
Publisher: Prentice-Hall 

Using a 'learning-by-doing' approach the reader is 
quickly taught how to write, modify, and expand his own 
programs. 

A diskette is included which contains complete running 
programs to begin with. The eight projects include Micro 
Calc, a miniature spreadsheet; Master, a guessing game; 
Atari Clock; Word Detective; Atari Player, a music 
program; Breakup, an exciting game; Sorting, sorts; graphic 
bars and telephone directory; Programmable Characters, 
add extra plotting resolution while retaining most normal 
characters in the Atari character set. Each project is 
designed to teach the reader a specific aspect of 
string manipulation, BASIC 
numbers and flags, ON...GOSUB, 
animation, sorting methods, plus 
many more. There are listings for all the programs, clear 
operating instructions, examples and figures. Each 
programming element is explained with clarity and related 
to the project the reader is working on. This book presents 
learning and mastery with hands-on experience and fun. 
This is the second in a series of 'Mastering' books, the first 
was for the Vic-20, the next is for the Commodore 64. 

Level: Beginner to intermediate. 



Title: Getting On-Line 

Author: M. David Stone 

Price: $14.95 

Publisher: Prentice-Hall, Inc. 

The field of telecommunications is constantly growing 
and at a startling rate. Finding out how, what and where is 
a time consuming and often confusing task. It is the pur- 
pose of this book to help both the novice and old-hand at 
sorting out what they need, where to get it, and how to use 
it. The first six chapters explain what you need before you 
actually go on-line. Chapter 1 Information Utilities — a 
look at what is available and where it came from, ex- 
amines kinds of information utilities and data bases. 
Chapter 2 Hardware Utilities — covers dumb terminals, 
smart terminals and computers as terminals. Chapter 3 
Hardware II — deals with modems, baud rate, signaling 
standards, connecting a modem, direct connect vs. 
acoustical connect modems and choosing a modem. 
Chapter 4 Software Part I — a look at available features, 
computers as dumb and smart terminals, smart terminal 
programs; basic features and additional capabilities. 
Chapter 5 Software Part II — the nitty gritty, RS-232, 
short reviews and helpful hints regarding some popular 
micros, CP/M computers, dual processor machines and 
modems. Chapter 7 Search Strategy deals with how to go 
about organizing your search for information, with tips 
that can save you money and time. The rest of the book 
consists of a catalog of information and an index. The 
catalog is of the various utilities (Dow Jones, The Source, 
etc.), and free services (Public Access Bulletin Boards). 



Level: Beginner to advanced. 



Title: The Apple lie Book 

Author: Bill O'Brien 

Price: $12.95 

Publisher: Bantam Books 

Bantam was selected by Apple to be among those who 
introduced the lie. Providing information that is useful to 
novices and advanced users, it includes data not found in 
the owner's manual. Comparability, configuration, DOS 
3.3 and ProDOS are all covered. The addition of 
peripherals features mice, touchpads, graphics tablets, and 
the new 'flat screen.' BASIC (Applesoft) is explained in as 
much as one can in three chapters. Graphics is also touch- 
ed upon. Telecommunications - i.e. the connections of 
modems, bulletin boards, etc. are dealt with in one 
chapter. Another chapter is devoted to troubleshooting, 
hardware and software problems. The four most used ap- 
plications — Word Processing, Databases, Spreadsheets, 
and Communications are introduced and reviewed. The 
last chapter contains vital information on user groups, 
bulletin boards, magazines and books. The appendices 
contain hardware information, technical stats and Escape 
codes. This books covers a lot of ground and hence is 
limited in the depth of coverage. However it does contain 
a great deal of useful information and has gathered some 
information not easily found elsewhere. 

Level: beginner to advanced. 



Title: Introduction to C 

Author: Paul M. Chirlian 

Price: $15.95 

Publisher: Matrix Publishers, 



Inc. 



As the title says this is an introduction to the program- 
ming language C. It is designed so that even those who 
have no previous programming experience will be able to 
learn C. Starting out with some basic ideas about com- 
puter operation, it moves on to some of the fundamental 
concepts of programming in C. Fundamental arithmetic 
operations are explained: integer, floating-point, hierar- 
chy, mixed mode, constants, etc. The next area is basic 
input, output and character operations including the use of 
the 'printf' statement and strings. The author stresses 
structured programming and documentation, devoting a 
large section of the book to these topics. The debugging 
process is outlined, a subject seldom covered. There are a 
number of good exercises and over 70 example programs. 
Arrays, pointers, and manipulations are covered in detail. 
File handling is discussed, input/output redirection, disk 
files, and command line input of data. The appendices 
contain C Keywords, C Operators, and the ASCII Codes. 
Chirlian has chosen to follow the standards set forth by 
Brian W. Kernighan and Dennis M. Ritchie in their book 
'The C Programming Language,' Prentice-Hall, 
Englewood Cliffs, N.J. 1978. This book and Chirlian' s are 
considered the standard books on C programming. 



Level: Beginner to intermediate. 
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Name: Cardboard/ 5 

System: Commodore 64 

Description: This product allows 
greater flexibility of use to switch 
select any cartridge slot or 
combination of cartridge slots. The 
22 color coded lights emit diodes to 
give status indication. Each slot has 
four LEDS and two toggle switches 
for indication and control. It allows 
the user supply power to a cartridge 
without allowing it to auto-start or 
to effect other operations. 




Price: 
Available: 



$79.95 
Cardco, Inc. 
313 Mathewson 
Wichita, KS 67214 



Computereyes 

Apple II Series & 

Compatibles 

48K 

Applesoft &DOS 3.3 



Name: 
System: 

Memory: 
Language: 

Description: This is a slow-scan 
device that connects any standard 
video source (video tape recorder, 
video camera, videodisk, etc.) and 
the Apple's game I/O socket. A 
multi-scan mode provides realistic 
grey-scale images. Included in the 
package: interface module, cable, 
software support on disk, owner's 
manual and also comes with a one 
year warranty. Versions for other 
popular computers will be available 
soon. 

Price: $129.95 

$10.00 demo disk (not 
required) 

Available: Digital Vision, Inc. 

14 Oak Street - Suite 2 
Needham, MA 02192 
(617) 444-9040 



BOUNTY HUNTER 

Journey back with us into the days of Jessie James and 
Billy the Kid where the only form of justice was a 
loaded revolver and a hangman's noose. In this full- 
length text adventure, you play the role of Bounty 
Hunter, battling against ruthless outlaws, hostile 
Indians, wild animals and the elements of the 
wilderness with only your wits and your six gun. 
Average solving time: 80-30 hours. If you love adven- 
tures, this one is a real treat. Available for COMMO- 
DORE 64, the VIC-20 (with expander), and C0LEC0 
ADAM. See your dealer. 



mu% 



$ 



19 



95 

Cassette 



Published by: 



^ 



y^tar-Byte, Inc. 

/"ir^A Division of Robinson-Halpern Company 

2564 Industry Lane • Norristown, PA 19403 • 215-539-4300 

ADAM is a trademark of Coleco, Inc COMMODORE 64 is a trademark of Commodore 
Business Machines, Inc VIC-20 is a trademark of Commodore Business Machines, Inc 
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Name: Microsport 

Microcomputers Model 
MMC/02 

System: AIM 65, Apple II, Atari 

400,800, Commodore 
CBM/PET series, KIM-1, 
KIM-4, Vic-20, MTU 
1300 and motherboards, 
Ohio Scientific 600 and 
others, Synertek SYM-1. 

Description: The Model MMC/02 
is a complete microcomputer on a 
4.5" by 6.5" PC board. It features a 
6502 microprocessor, IK Ram 
standard, 4K ROM/EPROM socket, 
2K RAM or ROM/EPROM 
expansion and BUS for ading up to 
16 I/O devices. Three basic versions 
are available. The MMC can operate 
from a regulated plus 5VDC power 
source. The CPU addresses a total of 
8K, enough for most control 
applications. There is a prototyping 
area as well as spare gates. 

Price: From $159.00* 

Available: R.J. Brachman 

Associates, Inc 

P.O. Box 1077 

Havertown, PA 19083 

(215) 622-5495 



Name: Cheatsheet 

System: Commodore VIC 20, 

C-64 

Description: These are plastic 
laminated keyboard overlays 
designed to fit over the keyboard 
surrounding the keys with 
commands and controls grouped 
together for easy references. The 
latest Cheatsheets available are: 
Logo (sheet 1], Logo |sheet 2, 
advanced), Pilot, Easy Calc, 
Printei- 1526, The Manager, 
Multiplan, Practicalc 64 |& plus), 
Printer |Epson-RX-80), Superbase 
64, The Consultant, Sprites Only 
and blanks. This brings the total 
Cheatsheets available to 33. 

Price: $3.95 plus $1.00 shipping 

per order 
Available: Cheatsheet Products 

P.O. Box 8299 

Pittsburgh, PA 15218 

(412) 456-7420 




EMC 

UNLIMITED PROFIT POTENTIAL 

WATCH OUT WALL STREET!! Now available on Floppy disk for 
brokers and active traders. The AMAZING computer program 
"STOCKER1 » uses new Moving Window-Spectral algorithm to rare- 
cast stock/commodity market TURNING POINTS— not more trend 
line/moving averages. Affordable! Easy to use! 

USED BY STXK/COflMODITY BROKERS 1 ACTIVE THflDERS 
Pernios »ou too are read* for the STOCKERi chil ler.se ' 

N ■» W ■ Your own personal forecast. 

COMPARE There is/usr nothing quite like it 



:• STOCKERI >' forecast for the Dow Jones 
industrial average daily closing with your cur- 
rent method 



.STOCKERI > 



available for 



::fWE ERROR UNDER 2* : 



!iil.96E« — 









rrjr*. 



WEEKLV / MONTHLV / QUARTERLY too 
Invest Trade Options Futures 



Doe; 



IBM. PC, PC. j r, XT ISMS 
RPPLE II, II+-, He- 
rn ith Z-S0 card 
TRS30 MODI I I, a, 
I I t 12, 16 48K iair.tsiurfl 

*299 BflSIER/VISfl/DIECK 
INCLUDES FREE (CUR ON IUDS SERVICE 



ENGINEERING 
MANAGEMENT 
CONSULTANT 

P.O. Box 312 

Fairfax. Va. 22030 
11 n Tel.: (703) 425-1296. 



micno&e 



In Micro No. 73 (July) Ian R. Humphreys 
program the following lines should read: 



'CMPRSS' 



9002 8D F6 03 
9007 8D F7 03 
92E5 A9 A9 
932E A9 EE 
9400 69 FF 
9402 85 03 



PRT1A 



STA BJP+1 
STA BJP+2 
LDA #< MESS1 
LDA jKMESSIA 
ADC #$FF 
STA NEWPTR+1 



NOTE: It is the policy of Micro to not include all of the 
hex code for assembled text. Due to space limitations we 
include only the first three bytes of the assembled 
message. This practice is carried throughout all of our 
assembler listings. We apologize for any confusion this 
may have presented and also any inconvenience to those 
who are not using an assembler. 
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by Mark S. Morano 







It all started two months ago when I received a call 
from the BES |Bureau of Encryption Services). They were 
having trouble with data security between their micros 
and mainframes. The problem was thought to be origin- 
ating from inside. Regardless of what new encryption 
methods were developed, the unknown informant would 
render them useless. And so the Bureau had decided to 
seek outside help. Due to our years of experience in the 
field, Micro was given the job. Our resident expert in 
this area, Mike Rowe, was assigned the task of developing 
new encryption methods that would prove effective 
against prying thieves. 

All went well until three weeks ago when Mike went 
on vacation. He called on the day he was to return saying 
he'd been delayed by a death in the family. We immed- 
iately informed the BES of the delay and the reason for it. 
The following day the Bureau contacted his family. They 
hadn't heard from him. Needless to say there had been no 
funeral. We were told to call the Bureau immediately if we 
heard from Mike. They assured us that they would locate 
him, but a week passed and still no sign of Mike. I began 
to worry. I have known Mike for a long time and knew he 
wasn't the kind of guy to up and disappear. The whole 
thing sounded strange. That is, until the other night. 

I was working late, downloading some files from i\ 
local mainframe we use for mass storage. While looking al: 
the catalog I noticed a file named 'test.mr'. It was nothing 
unusual to find a test file, but we never used the extension 
'mr'. I downloaded the file to check it out. At first it 
seemed to be a garbled mess, as though something strange 
happened during transmission. I decided that there must 
have been a surge on the wires, or a lost handshake 
somewhere, so I downloaded again. As I did I thought 
about the strange extension — 'mr' — of course, Mike 
Rowe — it must be one of his work files, but he always 
named his 'temp.tst'. I started to examine the file more 
closely; it still seemed like a bad transmission to me. 
Perhaps I would find a clue on his desk. After rummaging 
around piles of paper, I found what I was looking for, a 
folder marked'Top Secret' in big red letters with hand- 
painted stars and spaceships scattered about. With folder 



in hand I went back to my desk. I printed out Mike's file, 
carefully perused it, and then started pouring through the 
'Top Secret' folder in hope of an answer. As I sifted 
through countless encryption methods, I suddenly came 
upon one dated three days before Mike went on vacation. 
He had mentioned he was onto something hot and had 
pulled an all nighter the Thursday before he left. As I 
compared his examples and 'test.mr' I knew I had it. Two 
hours later I had decoded the mystery file. 

At first I thought it was a gag, but it soon became 
evident it wasn't. The text explained that he had been 
picked up by a couple of woman,- the next thing he 
remembered was passing out. He woke to find himself 
locked in a room with a desk, a couple of terminals, a 
printer and a modem. He was instructed over an intercom 
to recompose the latest encryption method he had devised. 
He was able to convince his captors that he had to access 
some files from the mainframe Micro used. While online 
he sent over this dummy work file I had found. I later 
found out he had given this new encryption method to the 
Bureau before he left for vacation. It seems that now 
someone else wanted it too. Mike stated in 'test.mr' that 
his method would be used to send important data over the 
lines sometime during the next month. He asked me to in- 
form the Bureau of his plight, destroy 'test.mr' and any 
files associated with his work. His last request was that I 
quickly come up with some alternate encryption methods 
for the BES to use in place of his. 

Well, in all honestly, I have limited experience in this 
area. So I decided to tap the brains of some people I know. 
After considering different suggestions, I finally came to 
the conclusion that you, the readers of Micro, could prob- 
ably help the most. By gathering a variety of encryption 
methods, I could distill one final product that would 
ensure security and stymy any intruder. And so, I ask you 
to help me out in this time of need. Please send your 
encryption schemes and solutions to me, using the sen- 
tence 'When the crow flies west, the sun shall set in the 
east.' Any encryption methods you can or have devised 
will be of great value and an important link in forging a 
chain that only Mike Rowe himself could crack. 
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Coming in October — 



□ Plotting Binary Trees 
by Luther K. Bran ting 

Graphic displays of tree-like decision paths aid 
using and understanding this type of graph 

□ Fat Bit Map Plotting 
by Loren Wright 

Assembly language routines to support bit map 
plotting on the Commodore 64 

□ Data Base Comparisons 
by Sanjiva Nath 

Discussion of the features to look for in selecting 
a data base manager for your micro 

D Rational Joystick Interfacing 
by Charles Engelsher 

A 'built-it yourself project to add a joystick to 
your system and learn about A/D conversion 

□ FORTH Input Utility 
by Mike Dougherty 

A method of providing interactive text input for 
better applications 



Solution to last month's (#74 July) 
Lyte Bytes puzzle. 
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This famous book now contains the most comprehensive description of firmware 
and hardware ever published for the whole Apple II family. A new section with 
guide, atlas and gazeteer now provides Apple lie specific information. 



• Gives names and locations of various Monitor, 
DOS, Integer BASIC and Applesoft routines and 
tells what they're used for 

• Lists Peeks, Pokes and Calls in over 2000 
memory locations 



• Allows easy movement between BASIC and 
Machine Language 

• Explains how to use the information for easier, 
better, faster software writing 



This expanded edition is available at the new low price of only $1 9.95 

For the 35,000 people who already own previous editions, 
the lie Appendix is available separately for just $5.00. 



Please send me: 

What's Where in the Apple @ $19.95 ea. 



(Plus $2.00 per copy shipping/handling) 



Apple lie Appendix @ $5.00 ea. 

(includes shipping charges) 



Mass residents add 5% sales tax $ 
Total Enclosed $ 

For faster service 
Phone 617/256-3649 



Name 



Address 



City 
Signature 



Acct #. 



State 



Zip 



□ Check 



□ VISA 



□ MasterCard 



Expires. 



MICRO, P.O. Box 6502, Chelmsford, MA 01824 



■.-___------«__-____________. 



"My Apple's 
telephone just 
called up the 
home office!" 




Communicating is so easy with a com- 
plete telecomputing system from Hayes 
just plug it m-andthe world is your 
Apple. Hayes Smaitmodem 300™ is the 
convenient direct-connect modem for 
the Apple lie. And Hayes Micromodem 
Ile^is the easily installed board modem 
for the Apple II, He. III. and Apple Plus. 

Packaged with Smartcom I™ thatyou want a system 

companion u /• /»/• jUm^' versatile an< 



a complete 4mtiVifl0^ 

telecomputing (rrw* 
system. And best of all, both systems 
are from Hayes, the established tele- 
computing leader! 

We connect you to all the right 
places. Bulletin boards, databases, 
information services— naturally. And 
that's just the beginning. Let your 
Apple plan your travel itinerary, 
including flight numbers, hotel and 
rental car reservations. Watch it 
retrieve and analyze daily stock and 
options prices. Work at home and 
send reports to and from your office. 
You can even do your gift shopping 
by computer! 

Would you care to see our menu? 
Make your selection. Really. With 
Smartcom I. you just order up what 



you want to do. The program guides 
you along the way. You can create, list. 
name, send, receive, print or erase 
files right from the menu. From the 
very first time you use it, you'll find 
telecomputing with Hayes as easy 
as apple pie! 

We've got your number! We know 

that vou want a system that's flexible, 

andaccommo- 

The Smart- 

300/Smartcom I 

system accepts ProDOS™ 



DOS 3.3, Pascal and CP/M" operating 
systems. The Micromodem He/ 
Smartcom 1 system accepts DOS 3.3, 
Pascal and CP/M operating systems. 

Smartcom I also provides you with 
a directory of the files stored on your 
disk. And will answer calls to your sys 
tern, without your even being there. 

Your Apple s telephone goes any- 
where the phone lines go. Hayes 
modems allow your Apple to commu- 
nicate with any Bell-103 type modem 
over ordinary telephone lines. Tfou 
simply connect directly into a mod- 
ular phone jack, to perform both 
Toucn-'Ibne'and pulse dialing. Hayes 
Smaitmodem 300 and Micromodem 
lie both transmit at 110 or 300 bits per 
second, in either half or full duplex. 



Follow the leader. Over the years 
we've built our reputation as the 
telecomputing leader by developing 
quality products that set industry stan- 
dards. Now we invite you to see for 
yourself just how simple it is to add 
powerful, easy to use telecomputing 
capabilities to your Apple computer 
with a complete, ready-to-go system 
from Hayes. Visit your Hayes dealer 
for a hands-on demonstration. And 
get on line 
with the 
world. 

Hayes. 
We're here I 
to help. 




Hayes 



Hayes Microcomputer Products, Inc. 

5923 Peachtree Industrial Blvd. 
Norcross. Georgia 30092. 404/441-1617. 



Smaitmodem 300 and Smartcom 1 are trademarks and Micromodem Me is a registered trademark of Haves Microcomputer Products. Inc. Apple is a registered trademark, and ProDOS is a trademark of 
Apple Computer. Inc. Touch-Tone Is a registered service mark of American Telephone and Telegraph. CP/M is a registered trademark of Digital Research. Inc. ©1984 Haves Microcomputer Products. Inc 
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